Developer CD Series 1999 December: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 …ember: Reference Library / Apple Developer Reference Library (December 1999) (Disk 1).iso / pc / technical documentation / develop / develop issue 23 / develop issue 23 code / internet config.sea / Internet Config / IC 1.1 / ICAppSourceKit1.1 / ICHelperWhat.p < prev next >
MacBinary | 1995-02-15 | 15.6 KB | [TEXT/PJMM]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`20%`	dexvert	VertiZontal Interlacing `(image/vzi)`	fileSize	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Applause Picture `(image/applausePicture)`	ext	Unsupported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	MATLAB p-code `(other/matlabPCode)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Feb 15 21:33:29 1995, modified Wed Feb 15 21:33:29 1995, creator Think Pascal, type ASCII, 15263 bytes "ICHelperWhat.p" , at 0x3c1f 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[PJMM]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 49 43 48 65 6c 70 | 65 72 57 68 61 74 2e 70 |..ICHelp|erWhat.p|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 3b 9f 00 | 00 01 ac ab 68 69 f9 ab |.....;..|....hi..|
|00000060| 68 69 f9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |hi......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 c0 00 00 |........|........|
|00000080| 75 6e 69 74 20 49 43 48 | 65 6c 70 65 72 57 68 61 |unit ICH|elperWha|
|00000090| 74 3b 0d 0d 69 6e 74 65 | 72 66 61 63 65 0d 0d 09 |t;..inte|rface...|
|000000a0| 75 73 65 73 0d 09 09 49 | 43 57 69 6e 64 6f 77 47 |uses...I|CWindowG|
|000000b0| 6c 6f 62 61 6c 73 3b 0d | 0d 09 66 75 6e 63 74 69 |lobals;.|..functi|
|000000c0| 6f 6e 20 57 68 61 74 4f | 70 65 6e 48 65 6c 70 65 |on WhatO|penHelpe|
|000000d0| 72 20 28 77 74 3a 20 57 | 69 6e 64 6f 77 54 79 70 |r (wt: W|indowTyp|
|000000e0| 65 3b 20 69 74 65 6d 3a | 20 69 6e 74 65 67 65 72 |e; item:| integer|
|000000f0| 29 3a 20 4f 53 45 72 72 | 3b 0d 09 66 75 6e 63 74 |): OSErr|;..funct|
|00000100| 69 6f 6e 20 57 68 61 74 | 41 63 74 69 76 61 74 65 |ion What|Activate|
|00000110| 48 65 6c 70 65 72 20 28 | 77 74 3a 20 57 69 6e 64 |Helper (|wt: Wind|
|00000120| 6f 77 54 79 70 65 3b 20 | 69 74 65 6d 3a 20 69 6e |owType; |item: in|
|00000130| 74 65 67 65 72 3b 20 61 | 63 74 69 76 61 74 65 3a |teger; a|ctivate:|
|00000140| 20 62 6f 6f 6c 65 61 6e | 29 3a 20 4f 53 45 72 72 | boolean|): OSErr|
|00000150| 3b 0d 09 66 75 6e 63 74 | 69 6f 6e 20 57 68 61 74 |;..funct|ion What|
|00000160| 46 6c 75 73 68 48 65 6c | 70 65 72 20 28 77 74 3a |FlushHel|per (wt:|
|00000170| 20 57 69 6e 64 6f 77 54 | 79 70 65 3b 20 69 74 65 | WindowT|ype; ite|
|00000180| 6d 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 4f 53 45 |m: integ|er): OSE|
|00000190| 72 72 3b 0d 09 66 75 6e | 63 74 69 6f 6e 20 57 68 |rr;..fun|ction Wh|
|000001a0| 61 74 43 6c 6f 73 65 48 | 65 6c 70 65 72 20 28 77 |atCloseH|elper (w|
|000001b0| 74 3a 20 57 69 6e 64 6f | 77 54 79 70 65 3b 20 69 |t: Windo|wType; i|
|000001c0| 74 65 6d 3a 20 69 6e 74 | 65 67 65 72 29 3a 20 4f |tem: int|eger): O|
|000001d0| 53 45 72 72 3b 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |SErr;..f|unction |
|000001e0| 57 68 61 74 43 6c 69 63 | 6b 48 65 6c 70 65 72 20 |WhatClic|kHelper |
|000001f0| 28 77 74 3a 20 57 69 6e | 64 6f 77 54 79 70 65 3b |(wt: Win|dowType;|
|00000200| 20 69 74 65 6d 3a 20 69 | 6e 74 65 67 65 72 3b 20 | item: i|nteger; |
|00000210| 65 72 3a 20 65 76 65 6e | 74 52 65 63 6f 72 64 29 |er: even|tRecord)|
|00000220| 3a 20 4f 53 45 72 72 3b | 0d 09 66 75 6e 63 74 69 |: OSErr;|..functi|
|00000230| 6f 6e 20 57 68 61 74 4b | 65 79 48 65 6c 70 65 72 |on WhatK|eyHelper|
|00000240| 20 28 77 74 3a 20 57 69 | 6e 64 6f 77 54 79 70 65 | (wt: Wi|ndowType|
|00000250| 3b 20 69 74 65 6d 3a 20 | 69 6e 74 65 67 65 72 3b |; item: |integer;|
|00000260| 20 65 72 3a 20 45 76 65 | 6e 74 52 65 63 6f 72 64 | er: Eve|ntRecord|
|00000270| 29 3a 20 4f 53 45 72 72 | 3b 0d 09 66 75 6e 63 74 |): OSErr|;..funct|
|00000280| 69 6f 6e 20 57 68 61 74 | 43 75 72 73 6f 72 48 65 |ion What|CursorHe|
|00000290| 6c 70 65 72 20 28 77 74 | 3a 20 57 69 6e 64 6f 77 |lper (wt|: Window|
|000002a0| 54 79 70 65 3b 20 69 74 | 65 6d 3a 20 69 6e 74 65 |Type; it|em: inte|
|000002b0| 67 65 72 3b 20 70 74 3a | 20 50 6f 69 6e 74 3b 20 |ger; pt:| Point; |
|000002c0| 63 75 72 73 6f 72 69 64 | 3a 20 69 6e 74 65 67 65 |cursorid|: intege|
|000002d0| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 0d 69 6d 70 6c |r): OSEr|r;..impl|
|000002e0| 65 6d 65 6e 74 61 74 69 | 6f 6e 0d 0d 09 75 73 65 |ementati|on...use|
|000002f0| 73 0d 09 09 49 63 6f 6e | 46 61 6d 69 6c 69 65 73 |s...Icon|Families|
|00000300| 2c 20 49 43 53 74 72 48 | 2c 20 0d 0d 09 09 49 43 |, ICStrH|, ....IC|
|00000310| 4b 65 79 73 2c 20 49 43 | 41 50 49 2c 20 49 43 53 |Keys, IC|API, ICS|
|00000320| 75 62 73 2c 20 49 43 44 | 69 61 6c 6f 67 73 2c 20 |ubs, ICD|ialogs, |
|00000330| 49 43 4d 69 73 63 53 75 | 62 73 2c 20 49 43 44 6f |ICMiscSu|bs, ICDo|
|00000340| 63 55 74 69 6c 73 2c 20 | 49 43 47 6c 6f 62 61 6c |cUtils, |ICGlobal|
|00000350| 73 2c 20 7b 7d 0d 09 09 | 49 43 49 43 6f 6e 53 75 |s, {}...|ICIConSu|
|00000360| 69 74 65 73 2c 20 49 43 | 53 74 61 6e 64 61 72 64 |ites, IC|Standard|
|00000370| 46 69 6c 65 2c 20 49 43 | 4d 6f 76 61 62 6c 65 4d |File, IC|MovableM|
|00000380| 6f 64 61 6c 3b 0d 0d 09 | 63 6f 6e 73 74 0d 09 09 |odal;...|const...|
|00000390| 64 69 74 43 68 61 6e 67 | 65 20 3d 20 31 3b 0d 09 |ditChang|e = 1;..|
|000003a0| 09 64 69 74 4d 61 69 6e | 55 73 65 72 49 74 65 6d |.ditMain|UserItem|
|000003b0| 20 3d 20 32 3b 0d 09 09 | 64 69 74 41 64 64 20 3d | = 2;...|ditAdd =|
|000003c0| 20 33 3b 0d 09 09 64 69 | 74 44 65 6c 65 74 65 20 | 3;...di|tDelete |
|000003d0| 3d 20 34 3b 0d 09 09 64 | 69 74 4c 69 73 74 20 3d |= 4;...d|itList =|
|000003e0| 20 35 3b 0d 0d 09 63 6f | 6e 73 74 0d 09 09 64 69 | 5;...co|nst...di|
|000003f0| 74 4f 4b 20 3d 20 31 3b | 0d 09 09 64 69 74 43 61 |tOK = 1;|...ditCa|
|00000400| 6e 63 65 6c 20 3d 20 32 | 3b 0d 09 09 64 69 74 41 |ncel = 2|;...ditA|
|00000410| 64 64 55 73 65 72 49 74 | 65 6d 20 3d 20 33 3b 0d |ddUserIt|em = 3;.|
|00000420| 09 09 64 69 74 48 65 6c | 70 65 72 20 3d 20 34 3b |..ditHel|per = 4;|
|00000430| 0d 09 09 64 69 74 41 70 | 70 4e 61 6d 65 20 3d 20 |...ditAp|pName = |
|00000440| 35 3b 0d 09 09 64 69 74 | 43 68 6f 6f 73 65 41 70 |5;...dit|ChooseAp|
|00000450| 70 6c 69 63 61 74 69 6f | 6e 20 3d 20 36 3b 0d 0d |plicatio|n = 6;..|
|00000460| 09 63 6f 6e 73 74 0d 09 | 09 6b 43 65 6c 6c 48 65 |.const..|.kCellHe|
|00000470| 69 67 68 74 20 3d 20 33 | 36 3b 0d 0d 09 74 79 70 |ight = 3|6;...typ|
|00000480| 65 0d 09 09 49 6e 74 65 | 72 6e 61 6c 41 70 70 53 |e...Inte|rnalAppS|
|00000490| 70 65 63 20 3d 20 72 65 | 63 6f 72 64 0d 09 09 09 |pec = re|cord....|
|000004a0| 09 6b 65 79 3a 20 53 74 | 72 32 35 35 3b 0d 09 09 |.key: St|r255;...|
|000004b0| 09 09 6c 6f 63 6b 65 64 | 3a 20 62 6f 6f 6c 65 61 |..locked|: boolea|
|000004c0| 6e 3b 0d 09 09 09 09 61 | 70 70 73 70 65 63 3a 20 |n;.....a|ppspec: |
|000004d0| 49 43 41 70 70 53 70 65 | 63 3b 0d 09 09 09 65 6e |ICAppSpe|c;....en|
|000004e0| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 47 |d;...pro|cedure G|
|000004f0| 65 74 4e 74 68 45 6c 65 | 6d 65 6e 74 20 28 65 6e |etNthEle|ment (en|
|00000500| 74 72 69 65 73 3a 20 48 | 61 6e 64 6c 65 3b 20 69 |tries: H|andle; i|
|00000510| 6e 64 65 78 3a 20 69 6e | 74 65 67 65 72 3b 20 76 |ndex: in|teger; v|
|00000520| 61 72 20 72 65 73 3a 20 | 49 6e 74 65 72 6e 61 6c |ar res: |Internal|
|00000530| 41 70 70 53 70 65 63 29 | 3b 0d 09 62 65 67 69 6e |AppSpec)|;..begin|
|00000540| 0d 09 09 42 6c 6f 63 6b | 4d 6f 76 65 28 50 74 72 |...Block|Move(Ptr|
|00000550| 28 6c 6f 6e 67 69 6e 74 | 28 65 6e 74 72 69 65 73 |(longint|(entries|
|00000560| 5e 29 20 2b 20 28 69 6e | 64 65 78 20 2d 20 31 29 |^) + (in|dex - 1)|
|00000570| 20 2a 20 73 69 7a 65 6f | 66 28 49 6e 74 65 72 6e | * sizeo|f(Intern|
|00000580| 61 6c 41 70 70 53 70 65 | 63 29 29 2c 20 40 72 65 |alAppSpe|c)), @re|
|00000590| 73 2c 20 73 69 7a 65 6f | 66 28 49 6e 74 65 72 6e |s, sizeo|f(Intern|
|000005a0| 61 6c 41 70 70 53 70 65 | 63 29 29 3b 0d 09 65 6e |alAppSpe|c));..en|
|000005b0| 64 3b 20 28 2a 20 47 65 | 74 4e 74 68 45 6c 65 6d |d; (* Ge|tNthElem|
|000005c0| 65 6e 74 20 2a 29 0d 0d | 09 70 72 6f 63 65 64 75 |ent *)..|.procedu|
|000005d0| 72 65 20 53 65 74 4e 74 | 68 45 6c 65 6d 65 6e 74 |re SetNt|hElement|
|000005e0| 20 28 65 6e 74 72 69 65 | 73 3a 20 48 61 6e 64 6c | (entrie|s: Handl|
|000005f0| 65 3b 20 69 6e 64 65 78 | 3a 20 69 6e 74 65 67 65 |e; index|: intege|
|00000600| 72 3b 20 76 61 72 20 72 | 65 73 3a 20 49 6e 74 65 |r; var r|es: Inte|
|00000610| 72 6e 61 6c 41 70 70 53 | 70 65 63 29 3b 0d 09 62 |rnalAppS|pec);..b|
|00000620| 65 67 69 6e 0d 09 09 42 | 6c 6f 63 6b 4d 6f 76 65 |egin...B|lockMove|
|00000630| 28 40 72 65 73 2c 20 50 | 74 72 28 6c 6f 6e 67 69 |(@res, P|tr(longi|
|00000640| 6e 74 28 65 6e 74 72 69 | 65 73 5e 29 20 2b 20 28 |nt(entri|es^) + (|
|00000650| 69 6e 64 65 78 20 2d 20 | 31 29 20 2a 20 73 69 7a |index - |1) * siz|
|00000660| 65 6f 66 28 49 6e 74 65 | 72 6e 61 6c 41 70 70 53 |eof(Inte|rnalAppS|
|00000670| 70 65 63 29 29 2c 20 73 | 69 7a 65 6f 66 28 49 6e |pec)), s|izeof(In|
|00000680| 74 65 72 6e 61 6c 41 70 | 70 53 70 65 63 29 29 3b |ternalAp|pSpec));|
|00000690| 0d 09 65 6e 64 3b 20 28 | 2a 20 53 65 74 4e 74 68 |..end; (|* SetNth|
|000006a0| 45 6c 65 6d 65 6e 74 20 | 2a 29 0d 0d 09 66 75 6e |Element |*)...fun|
|000006b0| 63 74 69 6f 6e 20 45 6e | 74 72 79 4c 6f 63 6b 65 |ction En|tryLocke|
|000006c0| 64 20 28 65 6e 74 72 69 | 65 73 3a 20 48 61 6e 64 |d (entri|es: Hand|
|000006d0| 6c 65 3b 20 69 6e 64 65 | 78 3a 20 69 6e 74 65 67 |le; inde|x: integ|
|000006e0| 65 72 29 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |er): boo|lean;...|
|000006f0| 76 61 72 0d 09 09 09 61 | 70 70 73 70 65 63 3a 20 |var....a|ppspec: |
|00000700| 49 6e 74 65 72 6e 61 6c | 41 70 70 53 70 65 63 3b |Internal|AppSpec;|
|00000710| 0d 09 62 65 67 69 6e 0d | 09 09 47 65 74 4e 74 68 |..begin.|..GetNth|
|00000720| 45 6c 65 6d 65 6e 74 28 | 65 6e 74 72 69 65 73 2c |Element(|entries,|
|00000730| 20 69 6e 64 65 78 2c 20 | 61 70 70 73 70 65 63 29 | index, |appspec)|
|00000740| 3b 0d 09 09 45 6e 74 72 | 79 4c 6f 63 6b 65 64 20 |;...Entr|yLocked |
|00000750| 3a 3d 20 61 70 70 73 70 | 65 63 2e 6c 6f 63 6b 65 |:= appsp|ec.locke|
|00000760| 64 3b 0d 09 65 6e 64 3b | 20 28 2a 20 45 6e 74 72 |d;..end;| (* Entr|
|00000770| 79 4c 6f 63 6b 65 64 20 | 2a 29 0d 0d 09 70 72 6f |yLocked |*)...pro|
|00000780| 63 65 64 75 72 65 20 44 | 69 6d 42 75 74 74 6f 6e |cedure D|imButton|
|00000790| 73 20 28 77 74 3a 20 57 | 69 6e 64 6f 77 54 79 70 |s (wt: W|indowTyp|
|000007a0| 65 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 68 61 76 |e);...va|r....hav|
|000007b0| 65 5f 73 65 6c 65 63 74 | 69 6f 6e 3a 20 62 6f 6f |e_select|ion: boo|
|000007c0| 6c 65 61 6e 3b 0d 09 09 | 09 64 6c 67 3a 20 44 69 |lean;...|.dlg: Di|
|000007d0| 61 6c 6f 67 50 74 72 3b | 0d 09 09 09 73 65 6c 65 |alogPtr;|....sele|
|000007e0| 63 74 69 6f 6e 3a 20 69 | 6e 74 65 67 65 72 3b 0d |ction: i|nteger;.|
|000007f0| 09 09 09 65 6e 74 72 69 | 65 73 3a 20 48 61 6e 64 |...entri|es: Hand|
|00000800| 6c 65 3b 0d 09 09 09 6c | 68 3a 20 4c 69 73 74 48 |le;....l|h: ListH|
|00000810| 61 6e 64 6c 65 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |andle;..|begin...|
|00000820| 64 6c 67 20 3a 3d 20 77 | 69 6e 64 6f 77 69 6e 66 |dlg := w|indowinf|
|00000830| 6f 5b 77 74 5d 2e 77 69 | 6e 64 6f 77 3b 0d 09 09 |o[wt].wi|ndow;...|
|00000840| 6c 68 20 3a 3d 20 4c 69 | 73 74 48 61 6e 64 6c 65 |lh := Li|stHandle|
|00000850| 28 77 69 6e 64 6f 77 69 | 6e 66 6f 5b 77 74 5d 2e |(windowi|nfo[wt].|
|00000860| 69 74 65 6d 73 5b 64 69 | 74 4c 69 73 74 5d 5e 2e |items[di|tList]^.|
|00000870| 73 70 61 72 65 5f 64 61 | 74 61 29 3b 0d 09 09 65 |spare_da|ta);...e|
|00000880| 6e 74 72 69 65 73 20 3a | 3d 20 48 61 6e 64 6c 65 |ntries :|= Handle|
|00000890| 28 77 69 6e 64 6f 77 69 | 6e 66 6f 5b 77 74 5d 2e |(windowi|nfo[wt].|
|000008a0| 69 74 65 6d 73 5b 64 69 | 74 4c 69 73 74 5d 5e 2e |items[di|tList]^.|
|000008b0| 64 61 74 61 29 3b 0d 09 | 09 73 65 6c 65 63 74 69 |data);..|.selecti|
|000008c0| 6f 6e 20 3a 3d 20 53 65 | 6c 65 63 74 65 64 4c 69 |on := Se|lectedLi|
|000008d0| 6e 65 28 6c 68 29 3b 0d | 09 09 68 61 76 65 5f 73 |ne(lh);.|..have_s|
|000008e0| 65 6c 65 63 74 69 6f 6e | 20 3a 3d 20 28 73 65 6c |election| := (sel|
|000008f0| 65 63 74 69 6f 6e 20 3c | 3e 20 2d 31 29 3b 0d 09 |ection <|> -1);..|
|00000900| 09 53 65 74 44 43 74 6c | 45 6e 61 62 6c 65 28 64 |.SetDCtl|Enable(d|
|00000910| 6c 67 2c 20 64 69 74 41 | 64 64 2c 20 6e 6f 74 20 |lg, ditA|dd, not |
|00000920| 49 73 44 6f 63 4c 6f 63 | 6b 65 64 29 3b 0d 09 09 |IsDocLoc|ked);...|
|00000930| 53 65 74 44 43 74 6c 45 | 6e 61 62 6c 65 28 64 6c |SetDCtlE|nable(dl|
|00000940| 67 2c 20 64 69 74 44 65 | 6c 65 74 65 2c 20 68 61 |g, ditDe|lete, ha|
|00000950| 76 65 5f 73 65 6c 65 63 | 74 69 6f 6e 20 61 6e 64 |ve_selec|tion and|
|00000960| 20 6e 6f 74 20 45 6e 74 | 72 79 4c 6f 63 6b 65 64 | not Ent|ryLocked|
|00000970| 28 65 6e 74 72 69 65 73 | 2c 20 73 65 6c 65 63 74 |(entries|, select|
|00000980| 69 6f 6e 20 2b 20 31 29 | 29 3b 0d 09 09 53 65 74 |ion + 1)|);...Set|
|00000990| 44 43 74 6c 45 6e 61 62 | 6c 65 28 64 6c 67 2c 20 |DCtlEnab|le(dlg, |
|000009a0| 64 69 74 43 68 61 6e 67 | 65 2c 20 68 61 76 65 5f |ditChang|e, have_|
|000009b0| 73 65 6c 65 63 74 69 6f | 6e 20 61 6e 64 20 6e 6f |selectio|n and no|
|000009c0| 74 20 45 6e 74 72 79 4c | 6f 63 6b 65 64 28 65 6e |t EntryL|ocked(en|
|000009d0| 74 72 69 65 73 2c 20 73 | 65 6c 65 63 74 69 6f 6e |tries, s|election|
|000009e0| 20 2b 20 31 29 29 3b 0d | 09 09 4f 75 74 6c 69 6e | + 1));.|..Outlin|
|000009f0| 65 44 65 66 61 75 6c 74 | 31 28 64 6c 67 2c 20 64 |eDefault|1(dlg, d|
|00000a00| 69 74 4d 61 69 6e 55 73 | 65 72 49 74 65 6d 29 3b |itMainUs|erItem);|
|00000a10| 0d 09 65 6e 64 3b 20 28 | 2a 20 44 69 6d 42 75 74 |..end; (|* DimBut|
|00000a20| 74 6f 6e 73 20 2a 29 0d | 0d 09 70 72 6f 63 65 64 |tons *).|..proced|
|00000a30| 75 72 65 20 55 73 65 72 | 49 74 65 6d 55 70 64 61 |ure User|ItemUpda|
|00000a40| 74 65 20 28 64 6c 67 3a | 20 44 69 61 6c 6f 67 50 |te (dlg:| DialogP|
|00000a50| 74 72 3b 20 69 74 65 6d | 3a 20 69 6e 74 65 67 65 |tr; item|: intege|
|00000a60| 72 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 6c 69 73 |r);...va|r....lis|
|00000a70| 74 5f 72 65 63 74 3a 20 | 52 65 63 74 3b 0d 09 62 |t_rect: |Rect;..b|
|00000a80| 65 67 69 6e 0d 09 09 47 | 65 74 44 49 74 65 6d 52 |egin...G|etDItemR|
|00000a90| 65 63 74 28 64 6c 67 2c | 20 69 74 65 6d 2c 20 6c |ect(dlg,| item, l|
|00000aa0| 69 73 74 5f 72 65 63 74 | 29 3b 0d 09 09 50 65 6e |ist_rect|);...Pen|
|00000ab0| 4e 6f 72 6d 61 6c 3b 0d | 09 09 49 6e 73 65 74 52 |Normal;.|..InsetR|
|00000ac0| 65 63 74 28 6c 69 73 74 | 5f 72 65 63 74 2c 20 2d |ect(list|_rect, -|
|00000ad0| 31 2c 20 2d 31 29 3b 0d | 09 09 46 72 61 6d 65 52 |1, -1);.|..FrameR|
|00000ae0| 65 63 74 28 6c 69 73 74 | 5f 72 65 63 74 29 3b 0d |ect(list|_rect);.|
|00000af0| 09 09 4c 55 70 64 61 74 | 65 28 64 6c 67 5e 2e 76 |..LUpdat|e(dlg^.v|
|00000b00| 69 73 52 67 6e 2c 20 4c | 69 73 74 48 61 6e 64 6c |isRgn, L|istHandl|
|00000b10| 65 28 77 69 6e 64 6f 77 | 69 6e 66 6f 5b 47 65 74 |e(window|info[Get|
|00000b20| 57 69 6e 64 6f 77 54 79 | 70 65 28 64 6c 67 29 5d |WindowTy|pe(dlg)]|
|00000b30| 2e 69 74 65 6d 73 5b 69 | 74 65 6d 5d 5e 2e 73 70 |.items[i|tem]^.sp|
|00000b40| 61 72 65 5f 64 61 74 61 | 29 29 3b 0d 09 65 6e 64 |are_data|));..end|
|00000b50| 3b 20 28 2a 20 55 73 65 | 72 49 74 65 6d 55 70 64 |; (* Use|rItemUpd|
|00000b60| 61 74 65 20 2a 29 0d 0d | 09 70 72 6f 63 65 64 75 |ate *)..|.procedu|
|00000b70| 72 65 20 4d 79 4c 44 45 | 46 20 28 6d 65 73 73 61 |re MyLDE|F (messa|
|00000b80| 67 65 3a 20 69 6e 74 65 | 67 65 72 3b 20 73 65 6c |ge: inte|ger; sel|
|00000b90| 65 63 74 3a 20 62 6f 6f | 6c 65 61 6e 3b 20 76 61 |ect: boo|lean; va|
|00000ba0| 72 20 72 3a 20 52 65 63 | 74 3b 20 74 68 65 5f 63 |r r: Rec|t; the_c|
|00000bb0| 65 6c 6c 3a 20 43 65 6c | 6c 3b 20 6f 66 66 73 65 |ell: Cel|l; offse|
|00000bc0| 74 3a 20 69 6e 74 65 67 | 65 72 3b 20 64 61 74 61 |t: integ|er; data|
|00000bd0| 6c 65 6e 3a 20 69 6e 74 | 65 67 65 72 3b 20 6c 68 |len: int|eger; lh|
|00000be0| 3a 20 4c 69 73 74 48 61 | 6e 64 6c 65 29 3b 0d 09 |: ListHa|ndle);..|
|00000bf0| 09 76 61 72 0d 09 09 09 | 65 6e 74 72 69 65 73 3a |.var....|entries:|
|00000c00| 20 48 61 6e 64 6c 65 3b | 0d 0d 09 09 70 72 6f 63 | Handle;|....proc|
|00000c10| 65 64 75 72 65 20 4c 44 | 44 72 61 77 3b 0d 09 09 |edure LD|Draw;...|
|00000c20| 09 63 6f 6e 73 74 0d 09 | 09 09 09 48 69 6c 69 74 |.const..|...Hilit|
|00000c30| 65 4d 6f 64 65 20 3d 20 | 24 39 33 38 3b 0d 09 09 |eMode = |$938;...|
|00000c40| 09 76 61 72 0d 09 09 09 | 09 61 70 70 73 70 65 63 |.var....|.appspec|
|00000c50| 3a 20 49 6e 74 65 72 6e | 61 6c 41 70 70 53 70 65 |: Intern|alAppSpe|
|00000c60| 63 3b 0d 09 09 09 09 70 | 6f 73 3a 20 6c 6f 6e 67 |c;.....p|os: long|
|00000c70| 69 6e 74 3b 0d 09 09 09 | 09 65 72 72 3a 20 4f 53 |int;....|.err: OS|
|00000c80| 45 72 72 3b 0d 09 09 09 | 09 6a 75 6e 6b 70 6f 73 |Err;....|.junkpos|
|00000c90| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 09 09 73 |: longin|t;.....s|
|00000ca0| 75 69 74 65 3a 20 48 61 | 6e 64 6c 65 3b 0d 09 09 |uite: Ha|ndle;...|
|00000cb0| 09 09 63 75 72 5f 78 3a | 20 69 6e 74 65 67 65 72 |..cur_x:| integer|
|00000cc0| 3b 0d 09 09 09 09 6a 75 | 6e 6b 3a 20 4f 53 45 72 |;.....ju|nk: OSEr|
|00000cd0| 72 3b 0d 09 09 09 09 74 | 6d 70 72 65 63 74 3a 20 |r;.....t|mprect: |
|00000ce0| 52 65 63 74 3b 0d 09 09 | 09 09 73 79 73 5f 66 6f |Rect;...|..sys_fo|
|00000cf0| 6e 74 5f 69 6e 66 6f 3a | 20 46 6f 6e 74 49 6e 66 |nt_info:| FontInf|
|00000d00| 6f 3b 0d 09 09 09 09 74 | 6f 70 3a 20 69 6e 74 65 |o;.....t|op: inte|
|00000d10| 67 65 72 3b 0d 09 09 09 | 09 74 72 61 6e 73 66 65 |ger;....|.transfe|
|00000d20| 72 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 09 |r: integ|er;.....|
|00000d30| 72 67 6e 3a 20 52 67 6e | 48 61 6e 64 6c 65 3b 0d |rgn: Rgn|Handle;.|
|00000d40| 09 09 09 09 72 67 6e 32 | 3a 20 52 67 6e 48 61 6e |....rgn2|: RgnHan|
|00000d50| 64 6c 65 3b 0d 09 09 62 | 65 67 69 6e 0d 09 09 09 |dle;...b|egin....|
|00000d60| 69 66 20 64 61 74 61 6c | 65 6e 20 3d 20 30 20 74 |if datal|en = 0 t|
|00000d70| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 47 65 |hen begi|n.....Ge|
|00000d80| 74 4e 74 68 45 6c 65 6d | 65 6e 74 28 65 6e 74 72 |tNthElem|ent(entr|
|00000d90| 69 65 73 2c 20 74 68 65 | 5f 63 65 6c 6c 2e 76 20 |ies, the|_cell.v |
|00000da0| 2b 20 31 2c 20 61 70 70 | 73 70 65 63 29 3b 0d 09 |+ 1, app|spec);..|
|00000db0| 09 09 09 45 72 61 73 65 | 52 65 63 74 28 72 29 3b |...Erase|Rect(r);|
|00000dc0| 0d 09 09 09 09 63 75 72 | 5f 78 20 3a 3d 20 30 3b |.....cur|_x := 0;|
|00000dd0| 0d 09 09 09 09 72 67 6e | 20 3a 3d 20 4e 65 77 52 |.....rgn| := NewR|
|00000de0| 67 6e 3b 0d 09 09 09 09 | 69 66 20 73 79 73 74 65 |gn;.....|if syste|
|00000df0| 6d 37 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |m7 then |begin...|
|00000e00| 09 09 09 74 6d 70 72 65 | 63 74 20 3a 3d 20 72 3b |...tmpre|ct := r;|
|00000e10| 0d 09 09 09 09 09 74 6d | 70 72 65 63 74 2e 62 6f |......tm|prect.bo|
|00000e20| 74 74 6f 6d 20 3a 3d 20 | 74 6d 70 72 65 63 74 2e |ttom := |tmprect.|
|00000e30| 74 6f 70 20 2b 20 33 32 | 3b 0d 09 09 09 09 09 74 |top + 32|;......t|
|00000e40| 6d 70 72 65 63 74 2e 72 | 69 67 68 74 20 3a 3d 20 |mprect.r|ight := |
|00000e50| 74 6d 70 72 65 63 74 2e | 6c 65 66 74 20 2b 20 33 |tmprect.|left + 3|
|00000e60| 32 3b 0d 09 09 09 09 09 | 4f 66 66 73 65 74 52 65 |2;......|OffsetRe|
|00000e70| 63 74 28 74 6d 70 72 65 | 63 74 2c 20 28 6b 43 65 |ct(tmpre|ct, (kCe|
|00000e80| 6c 6c 48 65 69 67 68 74 | 20 2d 20 33 32 29 20 64 |llHeight| - 32) d|
|00000e90| 69 76 20 32 2c 20 28 6b | 43 65 6c 6c 48 65 69 67 |iv 2, (k|CellHeig|
|00000ea0| 68 74 20 2d 20 33 32 29 | 20 64 69 76 20 32 29 3b |ht - 32)| div 2);|
|00000eb0| 0d 09 09 09 09 09 6a 75 | 6e 6b 20 3a 3d 20 47 65 |......ju|nk := Ge|
|00000ec0| 74 44 54 44 42 49 63 6f | 6e 53 75 69 74 65 43 61 |tDTDBIco|nSuiteCa|
|00000ed0| 63 68 65 64 28 27 41 50 | 50 4c 27 2c 20 61 70 70 |ched('AP|PL', app|
|00000ee0| 73 70 65 63 2e 61 70 70 | 73 70 65 63 2e 66 43 72 |spec.app|spec.fCr|
|00000ef0| 65 61 74 6f 72 2c 20 73 | 75 69 74 65 29 3b 0d 09 |eator, s|uite);..|
|00000f00| 09 09 09 09 69 66 20 73 | 75 69 74 65 20 3c 3e 20 |....if s|uite <> |
|00000f10| 6e 69 6c 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |nil then| begin..|
|00000f20| 09 09 09 09 09 69 66 20 | 73 65 6c 65 63 74 20 74 |.....if |select t|
|00000f30| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 09 09 |hen begi|n.......|
|00000f40| 09 74 72 61 6e 73 66 65 | 72 20 3a 3d 20 74 74 53 |.transfe|r := ttS|
|00000f50| 65 6c 65 63 74 65 64 3b | 0d 09 09 09 09 09 09 65 |elected;|.......e|
|00000f60| 6e 64 0d 09 09 09 09 09 | 09 65 6c 73 65 20 62 65 |nd......|.else be|
|00000f70| 67 69 6e 0d 09 09 09 09 | 09 09 09 74 72 61 6e 73 |gin.....|...trans|
|00000f80| 66 65 72 20 3a 3d 20 74 | 74 4e 6f 6e 65 3b 0d 09 |fer := t|tNone;..|
|00000f90| 09 09 09 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |.....end|; (* if |
|00000fa0| 2a 29 0d 09 09 09 09 09 | 09 65 72 72 20 3a 3d 20 |*)......|.err := |
|00000fb0| 50 6c 6f 74 49 63 6f 6e | 53 75 69 74 65 28 74 6d |PlotIcon|Suite(tm|
|00000fc0| 70 72 65 63 74 2c 20 61 | 74 4e 6f 6e 65 2c 20 74 |prect, a|tNone, t|
|00000fd0| 72 61 6e 73 66 65 72 2c | 20 73 75 69 74 65 29 3b |ransfer,| suite);|
|00000fe0| 0d 09 09 09 09 09 09 6a | 75 6e 6b 20 3a 3d 20 49 |.......j|unk := I|
|00000ff0| 63 6f 6e 53 75 69 74 65 | 54 6f 52 67 6e 28 72 67 |conSuite|ToRgn(rg|
|00001000| 6e 2c 20 74 6d 70 72 65 | 63 74 2c 20 61 74 4e 6f |n, tmpre|ct, atNo|
|00001010| 6e 65 2c 20 73 75 69 74 | 65 29 3b 0d 09 09 09 09 |ne, suit|e);.....|
|00001020| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00001030| 09 09 09 09 63 75 72 5f | 78 20 3a 3d 20 63 75 72 |....cur_|x := cur|
|00001040| 5f 78 20 2b 20 6b 43 65 | 6c 6c 48 65 69 67 68 74 |_x + kCe|llHeight|
|00001050| 3b 0d 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 63 |;.....en|d;.....c|
|00001060| 75 72 5f 78 20 3a 3d 20 | 63 75 72 5f 78 20 2b 20 |ur_x := |cur_x + |
|00001070| 32 3b 0d 0d 09 09 09 09 | 54 65 78 74 46 6f 6e 74 |2;......|TextFont|
|00001080| 28 73 79 73 74 65 6d 46 | 6f 6e 74 29 3b 0d 09 09 |(systemF|ont);...|
|00001090| 09 09 47 65 74 46 6f 6e | 74 49 6e 66 6f 28 73 79 |..GetFon|tInfo(sy|
|000010a0| 73 5f 66 6f 6e 74 5f 69 | 6e 66 6f 29 3b 0d 0d 09 |s_font_i|nfo);...|
|000010b0| 09 09 09 74 6f 70 20 3a | 3d 20 28 6b 43 65 6c 6c |...top :|= (kCell|
|000010c0| 48 65 69 67 68 74 20 2d | 20 28 73 79 73 5f 66 6f |Height -| (sys_fo|
|000010d0| 6e 74 5f 69 6e 66 6f 2e | 61 73 63 65 6e 74 20 2b |nt_info.|ascent +|
|000010e0| 20 73 79 73 5f 66 6f 6e | 74 5f 69 6e 66 6f 2e 64 | sys_fon|t_info.d|
|000010f0| 65 73 63 65 6e 74 29 29 | 20 64 69 76 20 32 3b 0d |escent))| div 2;.|
|00001100| 09 09 09 09 54 65 78 74 | 46 6f 6e 74 28 73 79 73 |....Text|Font(sys|
|00001110| 74 65 6d 46 6f 6e 74 29 | 3b 0d 09 09 09 09 4d 6f |temFont)|;.....Mo|
|00001120| 76 65 54 6f 28 72 2e 6c | 65 66 74 20 2b 20 63 75 |veTo(r.l|eft + cu|
|00001130| 72 5f 78 2c 20 72 2e 74 | 6f 70 20 2b 20 74 6f 70 |r_x, r.t|op + top|
|00001140| 20 2b 20 73 79 73 5f 66 | 6f 6e 74 5f 69 6e 66 6f | + sys_f|ont_info|
|00001150| 2e 61 73 63 65 6e 74 29 | 3b 0d 09 09 09 09 44 72 |.ascent)|;.....Dr|
|00001160| 61 77 53 74 72 69 6e 67 | 28 63 6f 6e 63 61 74 28 |awString|(concat(|
|00001170| 63 6f 70 79 28 61 70 70 | 73 70 65 63 2e 6b 65 79 |copy(app|spec.key|
|00001180| 2c 20 6c 65 6e 67 74 68 | 28 6b 49 43 48 65 6c 70 |, length|(kICHelp|
|00001190| 65 72 29 20 2b 20 31 2c | 20 32 35 35 29 2c 20 47 |er) + 1,| 255), G|
|000011a0| 65 74 41 53 74 72 69 6e | 67 28 31 32 38 2c 20 35 |etAStrin|g(128, 5|
|000011b0| 29 2c 20 61 70 70 73 70 | 65 63 2e 61 70 70 73 70 |), appsp|ec.appsp|
|000011c0| 65 63 2e 6e 61 6d 65 29 | 29 3b 0d 0d 09 09 09 09 |ec.name)|);......|
|000011d0| 69 66 20 73 65 6c 65 63 | 74 20 74 68 65 6e 20 62 |if selec|t then b|
|000011e0| 65 67 69 6e 0d 09 09 09 | 09 09 72 67 6e 32 20 3a |egin....|..rgn2 :|
|000011f0| 3d 20 4e 65 77 52 67 6e | 3b 0d 09 09 09 09 09 52 |= NewRgn|;......R|
|00001200| 65 63 74 52 67 6e 28 72 | 67 6e 32 2c 20 72 29 3b |ectRgn(r|gn2, r);|
|00001210| 0d 09 09 09 09 09 69 66 | 20 68 61 73 5f 63 6f 6c |......if| has_col|
|00001220| 6f 72 51 44 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |orQD the|n begin.|
|00001230| 09 09 09 09 09 09 42 69 | 74 43 6c 72 28 50 74 72 |......Bi|tClr(Ptr|
|00001240| 28 48 69 6c 69 74 65 4d | 6f 64 65 29 2c 20 70 48 |(HiliteM|ode), pH|
|00001250| 69 6c 69 74 65 42 69 74 | 29 3b 0d 09 09 09 09 09 |iliteBit|);......|
|00001260| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|00001270| 09 09 09 58 6f 72 52 67 | 6e 28 72 67 6e 2c 20 72 |...XorRg|n(rgn, r|
|00001280| 67 6e 32 2c 20 72 67 6e | 32 29 3b 0d 09 09 09 09 |gn2, rgn|2);.....|
|00001290| 09 49 6e 76 65 72 74 52 | 67 6e 28 72 67 6e 32 29 |.InvertR|gn(rgn2)|
|000012a0| 3b 0d 09 09 09 09 09 44 | 69 73 70 6f 73 65 52 67 |;......D|isposeRg|
|000012b0| 6e 28 72 67 6e 32 29 3b | 0d 09 09 09 09 65 6e 64 |n(rgn2);|.....end|
|000012c0| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 09 09 69 |; (* if |*).....i|
|000012d0| 66 20 72 67 6e 20 3c 3e | 20 6e 69 6c 20 74 68 65 |f rgn <>| nil the|
|000012e0| 6e 20 62 65 67 69 6e 0d | 09 09 09 09 09 44 69 73 |n begin.|.....Dis|
|000012f0| 70 6f 73 65 52 67 6e 28 | 72 67 6e 29 3b 0d 09 09 |poseRgn(|rgn);...|
|00001300| 09 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|00001310| 09 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00001320| 0d 09 09 65 6e 64 3b 0d | 0d 09 62 65 67 69 6e 0d |...end;.|..begin.|
|00001330| 09 09 53 65 74 50 6f 72 | 74 28 6c 68 5e 5e 2e 70 |..SetPor|t(lh^^.p|
|00001340| 6f 72 74 29 3b 0d 09 09 | 65 6e 74 72 69 65 73 20 |ort);...|entries |
|00001350| 3a 3d 20 48 61 6e 64 6c | 65 28 77 69 6e 64 6f 77 |:= Handl|e(window|
|00001360| 69 6e 66 6f 5b 47 65 74 | 57 69 6e 64 6f 77 54 79 |info[Get|WindowTy|
|00001370| 70 65 28 6c 68 5e 5e 2e | 70 6f 72 74 29 5d 2e 69 |pe(lh^^.|port)].i|
|00001380| 74 65 6d 73 5b 64 69 74 | 4c 69 73 74 5d 5e 2e 64 |tems[dit|List]^.d|
|00001390| 61 74 61 29 3b 0d 09 09 | 63 61 73 65 20 6d 65 73 |ata);...|case mes|
|000013a0| 73 61 67 65 20 6f 66 0d | 09 09 09 6c 49 6e 69 74 |sage of.|...lInit|
|000013b0| 4d 73 67 3a 20 0d 09 09 | 09 09 3b 0d 09 09 09 6c |Msg: ...|..;....l|
|000013c0| 44 72 61 77 4d 73 67 3a | 20 0d 09 09 09 09 4c 44 |DrawMsg:| .....LD|
|000013d0| 44 72 61 77 3b 0d 09 09 | 09 6c 48 69 6c 69 74 65 |Draw;...|.lHilite|
|000013e0| 4d 73 67 3a 20 0d 09 09 | 09 09 4c 44 44 72 61 77 |Msg: ...|..LDDraw|
|000013f0| 3b 0d 09 09 09 6c 43 6c | 6f 73 65 4d 73 67 3a 20 |;....lCl|oseMsg: |
|00001400| 0d 09 09 09 09 3b 0d 09 | 09 09 6f 74 68 65 72 77 |.....;..|..otherw|
|00001410| 69 73 65 0d 09 09 09 09 | 3b 0d 09 09 65 6e 64 3b |ise.....|;...end;|
|00001420| 0d 09 65 6e 64 3b 20 28 | 2a 20 4d 79 4c 44 45 46 |..end; (|* MyLDEF|
|00001430| 20 2a 29 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 57 | *)...fu|nction W|
|00001440| 68 61 74 4f 70 65 6e 48 | 65 6c 70 65 72 20 28 77 |hatOpenH|elper (w|
|00001450| 74 3a 20 57 69 6e 64 6f | 77 54 79 70 65 3b 20 69 |t: Windo|wType; i|
|00001460| 74 65 6d 3a 20 69 6e 74 | 65 67 65 72 29 3a 20 4f |tem: int|eger): O|
|00001470| 53 45 72 72 3b 0d 09 09 | 76 61 72 0d 09 09 09 64 |SErr;...|var....d|
|00001480| 6c 67 3a 20 44 69 61 6c | 6f 67 50 74 72 3b 0d 09 |lg: Dial|ogPtr;..|
|00001490| 09 09 65 6e 74 72 69 65 | 73 3a 20 48 61 6e 64 6c |..entrie|s: Handl|
|000014a0| 65 3b 0d 09 09 09 61 74 | 74 72 3a 20 6c 6f 6e 67 |e;....at|tr: long|
|000014b0| 69 6e 74 3b 0d 09 09 09 | 65 72 72 3a 20 4f 53 45 |int;....|err: OSE|
|000014c0| 72 72 3b 0d 09 09 09 63 | 6f 75 6e 74 3a 20 6c 6f |rr;....c|ount: lo|
|000014d0| 6e 67 69 6e 74 3b 0d 09 | 09 09 6c 69 73 74 5f 72 |ngint;..|..list_r|
|000014e0| 65 63 74 3a 20 52 65 63 | 74 3b 0d 09 09 09 64 61 |ect: Rec|t;....da|
|000014f0| 74 61 5f 72 65 63 74 3a | 20 52 65 63 74 3b 0d 09 |ta_rect:| Rect;..|
|00001500| 09 09 63 65 6c 6c 5f 73 | 69 7a 65 3a 20 50 6f 69 |..cell_s|ize: Poi|
|00001510| 6e 74 3b 0d 09 09 09 6c | 68 3a 20 4c 69 73 74 48 |nt;....l|h: ListH|
|00001520| 61 6e 64 6c 65 3b 0d 09 | 09 09 74 6d 70 61 70 73 |andle;..|..tmpaps|
|00001530| 70 65 63 3a 20 49 6e 74 | 65 72 6e 61 6c 41 70 70 |pec: Int|ernalApp|
|00001540| 53 70 65 63 3b 0d 09 09 | 09 6e 64 78 3a 20 6c 6f |Spec;...|.ndx: lo|
|00001550| 6e 67 69 6e 74 3b 0d 09 | 09 09 73 69 7a 65 3a 20 |ngint;..|..size: |
|00001560| 6c 6f 6e 67 69 6e 74 3b | 0d 09 62 65 67 69 6e 0d |longint;|..begin.|
|00001570| 09 09 65 72 72 20 3a 3d | 20 6e 6f 45 72 72 3b 0d |..err :=| noErr;.|
|00001580| 09 09 77 69 6e 64 6f 77 | 69 6e 66 6f 5b 77 74 5d |..window|info[wt]|
|00001590| 2e 69 74 65 6d 73 5b 69 | 74 65 6d 5d 5e 2e 73 70 |.items[i|tem]^.sp|
|000015a0| 61 72 65 5f 64 61 74 61 | 20 3a 3d 20 6e 69 6c 3b |are_data| := nil;|
|000015b0| 0d 09 09 77 69 6e 64 6f | 77 69 6e 66 6f 5b 77 74 |...windo|winfo[wt|
|000015c0| 5d 2e 69 74 65 6d 73 5b | 69 74 65 6d 5d 5e 2e 64 |].items[|item]^.d|
|000015d0| 61 74 61 20 3a 3d 20 6e | 69 6c 3b 0d 09 09 64 6c |ata := n|il;...dl|
|000015e0| 67 20 3a 3d 20 77 69 6e | 64 6f 77 69 6e 66 6f 5b |g := win|dowinfo[|
|000015f0| 77 74 5d 2e 77 69 6e 64 | 6f 77 3b 0d 09 09 53 65 |wt].wind|ow;...Se|
|00001600| 74 44 49 74 65 6d 48 61 | 6e 64 6c 65 28 64 6c 67 |tDItemHa|ndle(dlg|
|00001610| 2c 20 69 74 65 6d 2c 20 | 40 55 73 65 72 49 74 65 |, item, |@UserIte|
|00001620| 6d 55 70 64 61 74 65 29 | 3b 0d 09 09 65 6e 74 72 |mUpdate)|;...entr|
|00001630| 69 65 73 20 3a 3d 20 4e | 65 77 48 61 6e 64 6c 65 |ies := N|ewHandle|
|00001640| 28 30 29 3b 0d 09 09 69 | 66 20 65 6e 74 72 69 65 |(0);...i|f entrie|
|00001650| 73 20 3d 20 6e 69 6c 20 | 74 68 65 6e 20 62 65 67 |s = nil |then beg|
|00001660| 69 6e 0d 09 09 09 65 72 | 72 20 3a 3d 20 6d 65 6d |in....er|r := mem|
|00001670| 46 75 6c 6c 45 72 72 3b | 0d 09 09 65 6e 64 3b 20 |FullErr;|...end; |
|00001680| 28 2a 20 69 66 20 2a 29 | 0d 09 09 69 66 20 65 72 |(* if *)|...if er|
|00001690| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|000016a0| 65 67 69 6e 0d 09 09 09 | 6e 64 78 20 3a 3d 20 31 |egin....|ndx := 1|
|000016b0| 3b 0d 09 09 09 72 65 70 | 65 61 74 0d 09 09 09 09 |;....rep|eat.....|
|000016c0| 65 72 72 20 3a 3d 20 49 | 43 4d 61 70 45 72 72 28 |err := I|CMapErr(|
|000016d0| 49 43 47 65 74 49 6e 64 | 50 72 65 66 28 47 65 74 |ICGetInd|Pref(Get|
|000016e0| 49 6e 73 74 61 6e 63 65 | 2c 20 6e 64 78 2c 20 74 |Instance|, ndx, t|
|000016f0| 6d 70 61 70 73 70 65 63 | 2e 6b 65 79 29 29 3b 0d |mpapspec|.key));.|
|00001700| 09 09 09 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |....if e|rr = noE|
|00001710| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|00001720| 09 09 09 69 66 20 49 55 | 45 71 75 61 6c 53 74 72 |...if IU|EqualStr|
|00001730| 69 6e 67 28 63 6f 70 79 | 28 74 6d 70 61 70 73 70 |ing(copy|(tmpapsp|
|00001740| 65 63 2e 6b 65 79 2c 20 | 31 2c 20 6c 65 6e 67 74 |ec.key, |1, lengt|
|00001750| 68 28 6b 49 43 48 65 6c | 70 65 72 29 29 2c 20 6b |h(kICHel|per)), k|
|00001760| 49 43 48 65 6c 70 65 72 | 29 20 3d 20 30 20 74 68 |ICHelper|) = 0 th|
|00001770| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 09 09 09 73 |en begin|.......s|
|00001780| 69 7a 65 20 3a 3d 20 73 | 69 7a 65 6f 66 28 74 6d |ize := s|izeof(tm|
|00001790| 70 61 70 73 70 65 63 2e | 61 70 70 73 70 65 63 29 |papspec.|appspec)|
|000017a0| 3b 0d 09 09 09 09 09 09 | 65 72 72 20 3a 3d 20 49 |;.......|err := I|
|000017b0| 43 4d 61 70 45 72 72 28 | 49 43 47 65 74 50 72 65 |CMapErr(|ICGetPre|
|000017c0| 66 28 47 65 74 49 6e 73 | 74 61 6e 63 65 2c 20 74 |f(GetIns|tance, t|
|000017d0| 6d 70 61 70 73 70 65 63 | 2e 6b 65 79 2c 20 61 74 |mpapspec|.key, at|
|000017e0| 74 72 2c 20 40 74 6d 70 | 61 70 73 70 65 63 2e 61 |tr, @tmp|apspec.a|
|000017f0| 70 70 73 70 65 63 2c 20 | 73 69 7a 65 29 29 3b 0d |ppspec, |size));.|
|00001800| 09 09 09 09 09 09 69 66 | 20 65 72 72 20 3d 20 6e |......if| err = n|
|00001810| 6f 45 72 72 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |oErr the|n begin.|
|00001820| 09 09 09 09 09 09 09 74 | 6d 70 61 70 73 70 65 63 |.......t|mpapspec|
|00001830| 2e 6c 6f 63 6b 65 64 20 | 3a 3d 20 62 74 73 74 28 |.locked |:= btst(|
|00001840| 61 74 74 72 2c 20 49 43 | 61 74 74 72 5f 6c 6f 63 |attr, IC|attr_loc|
|00001850| 6b 65 64 5f 62 69 74 29 | 20 7c 20 49 73 44 6f 63 |ked_bit)| | IsDoc|
|00001860| 4c 6f 63 6b 65 64 3b 0d | 09 09 09 09 09 09 09 65 |Locked;.|.......e|
|00001870| 72 72 20 3a 3d 20 50 74 | 72 41 6e 64 48 61 6e 64 |rr := Pt|rAndHand|
|00001880| 28 40 74 6d 70 61 70 73 | 70 65 63 2c 20 65 6e 74 |(@tmpaps|pec, ent|
|00001890| 72 69 65 73 2c 20 73 69 | 7a 65 6f 66 28 49 6e 74 |ries, si|zeof(Int|
|000018a0| 65 72 6e 61 6c 41 70 70 | 53 70 65 63 29 29 3b 0d |ernalApp|Spec));.|
|000018b0| 09 09 09 09 09 09 65 6e | 64 3b 20 28 2a 20 69 66 |......en|d; (* if|
|000018c0| 20 2a 29 0d 09 09 09 09 | 09 65 6e 64 3b 20 28 2a | *).....|.end; (*|
|000018d0| 20 69 66 20 2a 29 0d 09 | 09 09 09 65 6e 64 3b 20 | if *)..|...end; |
|000018e0| 28 2a 20 69 66 20 2a 29 | 0d 09 09 09 09 6e 64 78 |(* if *)|.....ndx|
|000018f0| 20 3a 3d 20 6e 64 78 20 | 2b 20 31 3b 0d 09 09 09 | := ndx |+ 1;....|
|00001900| 75 6e 74 69 6c 20 65 72 | 72 20 3c 3e 20 6e 6f 45 |until er|r <> noE|
|00001910| 72 72 3b 0d 09 09 65 6e | 64 3b 20 28 2a 20 69 66 |rr;...en|d; (* if|
|00001920| 20 2a 29 0d 09 09 69 66 | 20 65 72 72 20 3d 20 69 | *)...if| err = i|
|00001930| 63 50 72 65 66 4e 6f 74 | 46 6f 75 6e 64 45 72 72 |cPrefNot|FoundErr|
|00001940| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 65 | then be|gin....e|
|00001950| 72 72 20 3a 3d 20 6e 6f | 45 72 72 3b 0d 09 09 65 |rr := no|Err;...e|
|00001960| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 69 |nd; (* i|f *)...i|
|00001970| 66 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 20 74 68 |f err = |noErr th|
|00001980| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 63 6f 75 6e |en begin|....coun|
|00001990| 74 20 3a 3d 20 47 65 74 | 48 61 6e 64 6c 65 53 69 |t := Get|HandleSi|
|000019a0| 7a 65 28 65 6e 74 72 69 | 65 73 29 20 64 69 76 20 |ze(entri|es) div |
|000019b0| 73 69 7a 65 6f 66 28 49 | 6e 74 65 72 6e 61 6c 41 |sizeof(I|nternalA|
|000019c0| 70 70 53 70 65 63 29 3b | 0d 09 09 09 77 69 6e 64 |ppSpec);|....wind|
|000019d0| 6f 77 69 6e 66 6f 5b 77 | 74 5d 2e 69 74 65 6d 73 |owinfo[w|t].items|
|000019e0| 5b 69 74 65 6d 5d 5e 2e | 64 61 74 61 20 3a 3d 20 |[item]^.|data := |
|000019f0| 50 74 72 28 65 6e 74 72 | 69 65 73 29 3b 0d 09 09 |Ptr(entr|ies);...|
|00001a00| 09 47 65 74 44 49 74 65 | 6d 52 65 63 74 28 64 6c |.GetDIte|mRect(dl|
|00001a10| 67 2c 20 69 74 65 6d 2c | 20 6c 69 73 74 5f 72 65 |g, item,| list_re|
|00001a20| 63 74 29 3b 0d 09 09 09 | 6c 69 73 74 5f 72 65 63 |ct);....|list_rec|
|00001a30| 74 2e 72 69 67 68 74 20 | 3a 3d 20 6c 69 73 74 5f |t.right |:= list_|
|00001a40| 72 65 63 74 2e 72 69 67 | 68 74 20 2d 20 31 35 3b |rect.rig|ht - 15;|
|00001a50| 0d 09 09 09 53 65 74 52 | 65 63 74 28 64 61 74 61 |....SetR|ect(data|
|00001a60| 5f 72 65 63 74 2c 20 30 | 2c 20 30 2c 20 31 2c 20 |_rect, 0|, 0, 1, |
|00001a70| 63 6f 75 6e 74 29 3b 0d | 09 09 09 53 65 74 50 74 |count);.|...SetPt|
|00001a80| 28 63 65 6c 6c 5f 73 69 | 7a 65 2c 20 6c 69 73 74 |(cell_si|ze, list|
|00001a90| 5f 72 65 63 74 2e 72 69 | 67 68 74 20 2d 20 6c 69 |_rect.ri|ght - li|
|00001aa0| 73 74 5f 72 65 63 74 2e | 6c 65 66 74 2c 20 6b 43 |st_rect.|left, kC|
|00001ab0| 65 6c 6c 48 65 69 67 68 | 74 29 3b 0d 09 09 09 6c |ellHeigh|t);....l|
|00001ac0| 68 20 3a 3d 20 4c 4e 65 | 77 28 6c 69 73 74 5f 72 |h := LNe|w(list_r|
|00001ad0| 65 63 74 2c 20 64 61 74 | 61 5f 72 65 63 74 2c 20 |ect, dat|a_rect, |
|00001ae0| 63 65 6c 6c 5f 73 69 7a | 65 2c 20 31 32 38 2c 20 |cell_siz|e, 128, |
|00001af0| 64 6c 67 2c 20 74 72 75 | 65 2c 20 66 61 6c 73 65 |dlg, tru|e, false|
|00001b00| 2c 20 66 61 6c 73 65 2c | 20 74 72 75 65 29 3b 0d |, false,| true);.|
|00001b10| 09 09 09 69 66 20 6c 68 | 20 3d 20 6e 69 6c 20 74 |...if lh| = nil t|
|00001b20| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 09 65 72 |hen begi|n.....er|
|00001b30| 72 20 3a 3d 20 6d 65 6d | 46 75 6c 6c 45 72 72 3b |r := mem|FullErr;|
|00001b40| 0d 09 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |....end;| (* if *|
|00001b50| 29 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |)...end;| (* if *|
|00001b60| 29 0d 09 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |)...if e|rr = noE|
|00001b70| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|00001b80| 09 6c 68 5e 5e 2e 72 65 | 66 43 6f 6e 20 3a 3d 20 |.lh^^.re|fCon := |
|00001b90| 6f 72 64 28 40 4d 79 4c | 44 45 46 29 3b 0d 09 09 |ord(@MyL|DEF);...|
|00001ba0| 09 6c 68 5e 5e 2e 73 65 | 6c 46 6c 61 67 73 20 3a |.lh^^.se|lFlags :|
|00001bb0| 3d 20 6c 4f 6e 6c 79 4f | 6e 65 3b 0d 09 09 09 77 |= lOnlyO|ne;....w|
|00001bc0| 69 6e 64 6f 77 69 6e 66 | 6f 5b 77 74 5d 2e 69 74 |indowinf|o[wt].it|
|00001bd0| 65 6d 73 5b 69 74 65 6d | 5d 5e 2e 73 70 61 72 65 |ems[item|]^.spare|
|00001be0| 5f 64 61 74 61 20 3a 3d | 20 50 74 72 28 6c 68 29 |_data :=| Ptr(lh)|
|00001bf0| 3b 0d 09 09 09 44 69 6d | 42 75 74 74 6f 6e 73 28 |;....Dim|Buttons(|
|00001c00| 77 74 29 3b 0d 09 09 09 | 53 65 74 55 70 44 65 66 |wt);....|SetUpDef|
|00001c10| 61 75 6c 74 4f 75 74 6c | 69 6e 65 28 64 6c 67 2c |aultOutl|ine(dlg,|
|00001c20| 20 64 69 74 43 68 61 6e | 67 65 2c 20 64 69 74 4d | ditChan|ge, ditM|
|00001c30| 61 69 6e 55 73 65 72 49 | 74 65 6d 29 3b 0d 09 09 |ainUserI|tem);...|
|00001c40| 09 77 69 6e 64 6f 77 69 | 6e 66 6f 5b 77 74 5d 2e |.windowi|nfo[wt].|
|00001c50| 73 65 6c 65 63 74 65 64 | 5f 69 74 65 6d 20 3a 3d |selected|_item :=|
|00001c60| 20 64 69 74 4c 69 73 74 | 3b 0d 09 09 65 6e 64 3b | ditList|;...end;|
|00001c70| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 57 68 61 74 | (* if *|)...What|
|00001c80| 4f 70 65 6e 48 65 6c 70 | 65 72 20 3a 3d 20 65 72 |OpenHelp|er := er|
|00001c90| 72 3b 0d 09 65 6e 64 3b | 20 28 2a 20 57 68 61 74 |r;..end;| (* What|
|00001ca0| 4f 70 65 6e 48 65 6c 70 | 65 72 20 2a 29 0d 0d 09 |OpenHelp|er *)...|
|00001cb0| 66 75 6e 63 74 69 6f 6e | 20 43 68 6f 6f 73 65 41 |function| ChooseA|
|00001cc0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 28 76 61 72 20 |pplicati|on (var |
|00001cd0| 73 70 65 63 3a 20 49 43 | 41 70 70 53 70 65 63 29 |spec: IC|AppSpec)|
|00001ce0| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 09 76 61 72 |: boolea|n;...var|
|00001cf0| 0d 09 09 09 76 61 6c 69 | 64 3a 20 62 6f 6f 6c 65 |....vali|d: boole|
|00001d00| 61 6e 3b 0d 09 09 09 69 | 6e 66 6f 3a 20 46 49 6e |an;....i|nfo: FIn|
|00001d10| 66 6f 3b 0d 09 09 09 66 | 73 3a 20 46 53 53 70 65 |fo;....f|s: FSSpe|
|00001d20| 63 3b 0d 09 09 09 65 72 | 72 3a 20 4f 53 45 72 72 |c;....er|r: OSErr|
|00001d30| 3b 0d 09 62 65 67 69 6e | 0d 09 09 65 72 72 20 3a |;..begin|...err :|
|00001d40| 3d 20 49 43 53 74 61 6e | 64 61 72 64 47 65 74 46 |= ICStan|dardGetF|
|00001d50| 69 6c 65 28 27 41 50 50 | 4c 27 2c 20 66 73 2c 20 |ile('APP|L', fs, |
|00001d60| 69 6e 66 6f 29 3b 0d 09 | 09 44 69 73 70 6c 61 79 |info);..|.Display|
|00001d70| 45 72 72 6f 72 28 61 63 | 43 68 6f 6f 73 65 41 70 |Error(ac|ChooseAp|
|00001d80| 70 6c 69 63 61 74 69 6f | 6e 2c 20 65 72 72 29 3b |plicatio|n, err);|
|00001d90| 0d 09 09 69 66 20 65 72 | 72 20 3d 20 6e 6f 45 72 |...if er|r = noEr|
|00001da0| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|00001db0| 73 70 65 63 2e 66 43 72 | 65 61 74 6f 72 20 3a 3d |spec.fCr|eator :=|
|00001dc0| 20 69 6e 66 6f 2e 66 64 | 43 72 65 61 74 6f 72 3b | info.fd|Creator;|
|00001dd0| 0d 09 09 09 73 70 65 63 | 2e 6e 61 6d 65 20 3a 3d |....spec|.name :=|
|00001de0| 20 66 73 2e 6e 61 6d 65 | 3b 0d 09 09 65 6e 64 3b | fs.name|;...end;|
|00001df0| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 43 68 6f 6f | (* if *|)...Choo|
|00001e00| 73 65 41 70 70 6c 69 63 | 61 74 69 6f 6e 20 3a 3d |seApplic|ation :=|
|00001e10| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 3b 0d 09 65 | err = n|oErr;..e|
|00001e20| 6e 64 3b 20 28 2a 20 43 | 68 6f 6f 73 65 41 70 70 |nd; (* C|hooseApp|
|00001e30| 6c 69 63 61 74 69 6f 6e | 20 2a 29 0d 0d 09 70 72 |lication| *)...pr|
|00001e40| 6f 63 65 64 75 72 65 20 | 46 69 78 42 75 74 74 6f |ocedure |FixButto|
|00001e50| 6e 20 28 64 6c 67 3a 20 | 44 69 61 6c 6f 67 50 74 |n (dlg: |DialogPt|
|00001e60| 72 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 74 31 2c |r);...va|r....t1,|
|00001e70| 20 74 32 3a 20 53 74 72 | 32 35 35 3b 0d 09 62 65 | t2: Str|255;..be|
|00001e80| 67 69 6e 0d 09 09 47 65 | 74 49 74 65 6d 54 65 78 |gin...Ge|tItemTex|
|00001e90| 74 28 64 6c 67 2c 20 64 | 69 74 41 70 70 4e 61 6d |t(dlg, d|itAppNam|
|00001ea0| 65 2c 20 74 31 29 3b 0d | 09 09 47 65 74 49 74 65 |e, t1);.|..GetIte|
|00001eb0| 6d 54 65 78 74 28 64 6c | 67 2c 20 64 69 74 48 65 |mText(dl|g, ditHe|
|00001ec0| 6c 70 65 72 2c 20 74 32 | 29 3b 0d 09 09 53 65 74 |lper, t2|);...Set|
|00001ed0| 44 43 74 6c 45 6e 61 62 | 6c 65 28 64 6c 67 2c 20 |DCtlEnab|le(dlg, |
|00001ee0| 64 69 74 4f 4b 2c 20 28 | 74 31 20 3c 3e 20 27 27 |ditOK, (|t1 <> ''|
|00001ef0| 29 20 61 6e 64 20 28 74 | 32 20 3c 3e 20 27 27 29 |) and (t|2 <> '')|
|00001f00| 29 3b 0d 09 09 4f 75 74 | 6c 69 6e 65 44 65 66 61 |);...Out|lineDefa|
|00001f10| 75 6c 74 31 28 64 6c 67 | 2c 20 64 69 74 41 64 64 |ult1(dlg|, ditAdd|
|00001f20| 55 73 65 72 49 74 65 6d | 29 3b 0d 09 65 6e 64 3b |UserItem|);..end;|
|00001f30| 20 28 2a 20 46 69 78 42 | 75 74 74 6f 6e 20 2a 29 | (* FixB|utton *)|
|00001f40| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 44 6f 41 64 |...funct|ion DoAd|
|00001f50| 64 46 69 6c 74 65 72 20 | 28 64 6c 67 3a 20 44 69 |dFilter |(dlg: Di|
|00001f60| 61 6c 6f 67 50 74 72 3b | 20 76 61 72 20 65 76 65 |alogPtr;| var eve|
|00001f70| 6e 74 3a 20 45 76 65 6e | 74 52 65 63 6f 72 64 3b |nt: Even|tRecord;|
|00001f80| 20 76 61 72 20 69 74 65 | 6d 3a 20 69 6e 74 65 67 | var ite|m: integ|
|00001f90| 65 72 29 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |er): boo|lean;...|
|00001fa0| 76 61 72 0d 09 09 09 72 | 65 73 3a 20 62 6f 6f 6c |var....r|es: bool|
|00001fb0| 65 61 6e 3b 0d 09 62 65 | 67 69 6e 0d 09 09 72 65 |ean;..be|gin...re|
|00001fc0| 73 20 3a 3d 20 43 61 6e | 63 65 6c 4d 6f 64 61 6c |s := Can|celModal|
|00001fd0| 46 69 6c 74 65 72 28 64 | 6c 67 2c 20 65 76 65 6e |Filter(d|lg, even|
|00001fe0| 74 2c 20 69 74 65 6d 29 | 3b 0d 09 09 46 69 78 42 |t, item)|;...FixB|
|00001ff0| 75 74 74 6f 6e 28 64 6c | 67 29 3b 0d 09 09 44 6f |utton(dl|g);...Do|
|00002000| 41 64 64 46 69 6c 74 65 | 72 20 3a 3d 20 72 65 73 |AddFilte|r := res|
|00002010| 3b 0d 09 65 6e 64 3b 28 | 2a 20 44 6f 41 64 64 46 |;..end;(|* DoAddF|
|00002020| 69 6c 74 65 72 20 2a 29 | 0d 0d 09 66 75 6e 63 74 |ilter *)|...funct|
|00002030| 69 6f 6e 20 44 6f 45 64 | 69 74 20 28 65 6e 74 72 |ion DoEd|it (entr|
|00002040| 69 65 73 3a 20 48 61 6e | 64 6c 65 3b 20 6c 68 3a |ies: Han|dle; lh:|
|00002050| 20 4c 69 73 74 48 61 6e | 64 6c 65 3b 20 76 61 72 | ListHan|dle; var|
|00002060| 20 63 68 6f 6f 73 65 6e | 5f 61 70 70 3a 20 49 6e | choosen|_app: In|
|00002070| 74 65 72 6e 61 6c 41 70 | 70 53 70 65 63 29 3a 20 |ternalAp|pSpec): |
|00002080| 4f 53 45 72 72 3b 0d 09 | 09 76 61 72 0d 09 09 09 |OSErr;..|.var....|
|00002090| 64 6c 67 3a 20 44 69 61 | 6c 6f 67 50 74 72 3b 0d |dlg: Dia|logPtr;.|
|000020a0| 09 09 09 69 74 65 6d 3a | 20 69 6e 74 65 67 65 72 |...item:| integer|
|000020b0| 3b 0d 09 09 09 6a 75 6e | 6b 3a 20 69 6e 74 65 67 |;....jun|k: integ|
|000020c0| 65 72 3b 0d 09 09 09 65 | 72 72 3a 20 4f 53 45 72 |er;....e|rr: OSEr|
|000020d0| 72 3b 0d 09 09 09 73 61 | 76 65 64 5f 73 74 61 74 |r;....sa|ved_stat|
|000020e0| 65 3a 20 50 74 72 3b 0d | 09 62 65 67 69 6e 0d 09 |e: Ptr;.|.begin..|
|000020f0| 09 65 72 72 20 3a 3d 20 | 6e 6f 45 72 72 3b 0d 09 |.err := |noErr;..|
|00002100| 09 64 6c 67 20 3a 3d 20 | 47 65 74 4e 65 77 44 69 |.dlg := |GetNewDi|
|00002110| 61 6c 6f 67 28 38 30 30 | 2c 20 6e 69 6c 2c 20 57 |alog(800|, nil, W|
|00002120| 69 6e 64 6f 77 50 74 72 | 28 2d 31 29 29 3b 0d 09 |indowPtr|(-1));..|
|00002130| 09 69 66 20 64 6c 67 20 | 3d 20 6e 69 6c 20 74 68 |.if dlg |= nil th|
|00002140| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 65 72 72 20 |en begin|....err |
|00002150| 3a 3d 20 6d 65 6d 46 75 | 6c 6c 45 72 72 3b 0d 09 |:= memFu|llErr;..|
|00002160| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00002170| 09 69 66 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.if err |= noErr |
|00002180| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 53 65 |then beg|in....Se|
|00002190| 74 55 70 44 65 66 61 75 | 6c 74 4f 75 74 6c 69 6e |tUpDefau|ltOutlin|
|000021a0| 65 28 64 6c 67 2c 20 64 | 69 74 4f 4b 2c 20 64 69 |e(dlg, d|itOK, di|
|000021b0| 74 41 64 64 55 73 65 72 | 49 74 65 6d 29 3b 0d 09 |tAddUser|Item);..|
|000021c0| 09 09 53 65 74 49 74 65 | 6d 54 65 78 74 28 64 6c |..SetIte|mText(dl|
|000021d0| 67 2c 20 64 69 74 48 65 | 6c 70 65 72 2c 20 63 68 |g, ditHe|lper, ch|
|000021e0| 6f 6f 73 65 6e 5f 61 70 | 70 2e 6b 65 79 29 3b 0d |oosen_ap|p.key);.|
|000021f0| 09 09 09 53 65 74 49 74 | 65 6d 54 65 78 74 28 64 |...SetIt|emText(d|
|00002200| 6c 67 2c 20 64 69 74 41 | 70 70 4e 61 6d 65 2c 20 |lg, ditA|ppName, |
|00002210| 63 68 6f 6f 73 65 6e 5f | 61 70 70 2e 61 70 70 73 |choosen_|app.apps|
|00002220| 70 65 63 2e 6e 61 6d 65 | 29 3b 0d 09 09 09 53 65 |pec.name|);....Se|
|00002230| 6c 49 54 65 78 74 28 64 | 6c 67 2c 20 64 69 74 48 |lIText(d|lg, ditH|
|00002240| 65 6c 70 65 72 2c 20 30 | 2c 20 32 35 35 29 3b 0d |elper, 0|, 255);.|
|00002250| 09 09 09 46 69 78 42 75 | 74 74 6f 6e 28 64 6c 67 |...FixBu|tton(dlg|
|00002260| 29 3b 0d 09 09 09 53 68 | 6f 77 57 69 6e 64 6f 77 |);....Sh|owWindow|
|00002270| 28 64 6c 67 29 3b 0d 09 | 09 09 44 69 73 61 62 6c |(dlg);..|..Disabl|
|00002280| 65 4d 65 6e 75 42 61 72 | 28 73 61 76 65 64 5f 73 |eMenuBar|(saved_s|
|00002290| 74 61 74 65 2c 20 2d 31 | 29 3b 0d 09 09 09 49 6e |tate, -1|);....In|
|000022a0| 69 74 43 75 72 73 6f 72 | 3b 0d 09 09 09 72 65 70 |itCursor|;....rep|
|000022b0| 65 61 74 0d 09 09 09 09 | 4d 6f 76 61 62 6c 65 4d |eat.....|MovableM|
|000022c0| 6f 64 61 6c 44 69 61 6c | 6f 67 28 40 44 6f 41 64 |odalDial|og(@DoAd|
|000022d0| 64 46 69 6c 74 65 72 2c | 20 69 74 65 6d 29 3b 0d |dFilter,| item);.|
|000022e0| 09 09 09 09 63 61 73 65 | 20 69 74 65 6d 20 6f 66 |....case| item of|
|000022f0| 0d 09 09 09 09 09 64 69 | 74 43 68 6f 6f 73 65 41 |......di|tChooseA|
|00002300| 70 70 6c 69 63 61 74 69 | 6f 6e 3a 20 20 62 65 67 |pplicati|on:  beg|
|00002310| 69 6e 0d 09 09 09 09 09 | 09 69 66 20 43 68 6f 6f |in......|.if Choo|
|00002320| 73 65 41 70 70 6c 69 63 | 61 74 69 6f 6e 28 63 68 |seApplic|ation(ch|
|00002330| 6f 6f 73 65 6e 5f 61 70 | 70 2e 61 70 70 73 70 65 |oosen_ap|p.appspe|
|00002340| 63 29 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |c) then |begin...|
|00002350| 09 09 09 09 09 53 65 74 | 49 74 65 6d 54 65 78 74 |.....Set|ItemText|
|00002360| 28 64 6c 67 2c 20 64 69 | 74 41 70 70 4e 61 6d 65 |(dlg, di|tAppName|
|00002370| 2c 20 63 68 6f 6f 73 65 | 6e 5f 61 70 70 2e 61 70 |, choose|n_app.ap|
|00002380| 70 73 70 65 63 2e 6e 61 | 6d 65 29 3b 0d 09 09 09 |pspec.na|me);....|
|00002390| 09 09 09 09 46 69 78 42 | 75 74 74 6f 6e 28 64 6c |....FixB|utton(dl|
|000023a0| 67 29 3b 0d 09 09 09 09 | 09 09 65 6e 64 3b 20 28 |g);.....|..end; (|
|000023b0| 2a 20 69 66 20 2a 29 0d | 09 09 09 09 09 65 6e 64 |* if *).|.....end|
|000023c0| 3b 0d 09 09 09 09 09 6f | 74 68 65 72 77 69 73 65 |;......o|therwise|
|000023d0| 0d 09 09 09 09 09 09 3b | 0d 09 09 09 09 65 6e 64 |.......;|.....end|
|000023e0| 3b 20 28 2a 20 63 61 73 | 65 20 2a 29 0d 09 09 09 |; (* cas|e *)....|
|000023f0| 75 6e 74 69 6c 20 69 74 | 65 6d 20 69 6e 20 5b 64 |until it|em in [d|
|00002400| 69 74 4f 4b 2c 20 64 69 | 74 43 61 6e 63 65 6c 5d |itOK, di|tCancel]|
|00002410| 3b 0d 09 09 09 69 66 20 | 69 74 65 6d 20 3d 20 64 |;....if |item = d|
|00002420| 69 74 4f 4b 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |itOK the|n begin.|
|00002430| 09 09 09 09 47 65 74 49 | 74 65 6d 54 65 78 74 28 |....GetI|temText(|
|00002440| 64 6c 67 2c 20 64 69 74 | 48 65 6c 70 65 72 2c 20 |dlg, dit|Helper, |
|00002450| 63 68 6f 6f 73 65 6e 5f | 61 70 70 2e 6b 65 79 29 |choosen_|app.key)|
|00002460| 3b 0d 09 09 09 09 63 68 | 6f 6f 73 65 6e 5f 61 70 |;.....ch|oosen_ap|
|00002470| 70 2e 6b 65 79 20 3a 3d | 20 63 6f 6e 63 61 74 28 |p.key :=| concat(|
|00002480| 6b 49 43 48 65 6c 70 65 | 72 2c 20 63 68 6f 6f 73 |kICHelpe|r, choos|
|00002490| 65 6e 5f 61 70 70 2e 6b | 65 79 29 3b 0d 09 09 09 |en_app.k|ey);....|
|000024a0| 65 6e 64 0d 09 09 09 65 | 6c 73 65 20 62 65 67 69 |end....e|lse begi|
|000024b0| 6e 0d 09 09 09 09 65 72 | 72 20 3a 3d 20 75 73 65 |n.....er|r := use|
|000024c0| 72 43 61 6e 63 65 6c 65 | 64 45 72 72 3b 0d 09 09 |rCancele|dErr;...|
|000024d0| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|000024e0| 09 09 52 65 45 6e 61 62 | 6c 65 4d 65 6e 75 42 61 |..ReEnab|leMenuBa|
|000024f0| 72 28 73 61 76 65 64 5f | 73 74 61 74 65 29 3b 0d |r(saved_|state);.|
|00002500| 09 09 09 44 69 73 70 6f | 73 65 44 69 61 6c 6f 67 |...Dispo|seDialog|
|00002510| 28 64 6c 67 29 3b 0d 09 | 09 65 6e 64 3b 20 28 2a |(dlg);..|.end; (*|
|00002520| 20 69 66 20 2a 29 0d 09 | 09 44 6f 45 64 69 74 20 | if *)..|.DoEdit |
|00002530| 3a 3d 20 65 72 72 3b 0d | 09 65 6e 64 3b 0d 0d 09 |:= err;.|.end;...|
|00002540| 66 75 6e 63 74 69 6f 6e | 20 44 6f 41 64 64 20 28 |function| DoAdd (|
|00002550| 65 6e 74 72 69 65 73 3a | 20 48 61 6e 64 6c 65 3b |entries:| Handle;|
|00002560| 20 6c 68 3a 20 4c 69 73 | 74 48 61 6e 64 6c 65 29 | lh: Lis|tHandle)|
|00002570| 3a 20 4f 53 45 72 72 3b | 0d 09 09 76 61 72 0d 09 |: OSErr;|...var..|
|00002580| 09 09 63 68 6f 6f 73 65 | 6e 5f 61 70 70 3a 20 49 |..choose|n_app: I|
|00002590| 6e 74 65 72 6e 61 6c 41 | 70 70 53 70 65 63 3b 0d |nternalA|ppSpec;.|
|000025a0| 09 09 09 64 6c 67 3a 20 | 44 69 61 6c 6f 67 50 74 |...dlg: |DialogPt|
|000025b0| 72 3b 0d 09 09 09 69 74 | 65 6d 3a 20 69 6e 74 65 |r;....it|em: inte|
|000025c0| 67 65 72 3b 0d 09 09 09 | 6a 75 6e 6b 3a 20 69 6e |ger;....|junk: in|
|000025d0| 74 65 67 65 72 3b 0d 09 | 09 09 65 72 72 3a 20 4f |teger;..|..err: O|
|000025e0| 53 45 72 72 3b 0d 09 62 | 65 67 69 6e 0d 09 09 63 |SErr;..b|egin...c|
|000025f0| 68 6f 6f 73 65 6e 5f 61 | 70 70 2e 61 70 70 73 70 |hoosen_a|pp.appsp|
|00002600| 65 63 2e 6e 61 6d 65 20 | 3a 3d 20 27 27 3b 0d 09 |ec.name |:= '';..|
|00002610| 09 63 68 6f 6f 73 65 6e | 5f 61 70 70 2e 6b 65 79 |.choosen|_app.key|
|00002620| 20 3a 3d 20 27 27 3b 0d | 09 09 65 72 72 20 3a 3d | := '';.|..err :=|
|00002630| 20 44 6f 45 64 69 74 28 | 65 6e 74 72 69 65 73 2c | DoEdit(|entries,|
|00002640| 20 6c 68 2c 20 63 68 6f | 6f 73 65 6e 5f 61 70 70 | lh, cho|osen_app|
|00002650| 29 3b 0d 09 09 69 66 20 | 65 72 72 20 3d 20 6e 6f |);...if |err = no|
|00002660| 45 72 72 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |Err then| begin..|
|00002670| 09 09 65 72 72 20 3a 3d | 20 50 74 72 41 6e 64 48 |..err :=| PtrAndH|
|00002680| 61 6e 64 28 40 63 68 6f | 6f 73 65 6e 5f 61 70 70 |and(@cho|osen_app|
|00002690| 2c 20 65 6e 74 72 69 65 | 73 2c 20 73 69 7a 65 6f |, entrie|s, sizeo|
|000026a0| 66 28 63 68 6f 6f 73 65 | 6e 5f 61 70 70 29 29 3b |f(choose|n_app));|
|000026b0| 0d 09 09 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |....if e|rr = noE|
|000026c0| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|000026d0| 09 09 6a 75 6e 6b 20 3a | 3d 20 4c 41 64 64 52 6f |..junk :|= LAddRo|
|000026e0| 77 28 31 2c 20 33 32 37 | 36 37 2c 20 6c 68 29 3b |w(1, 327|67, lh);|
|000026f0| 0d 09 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |....end;| (* if *|
|00002700| 29 0d 09 09 65 6e 64 3b | 0d 09 09 44 6f 41 64 64 |)...end;|...DoAdd|
|00002710| 20 3a 3d 20 65 72 72 3b | 0d 09 65 6e 64 3b 20 28 | := err;|..end; (|
|00002720| 2a 20 44 6f 41 64 64 20 | 2a 29 0d 0d 09 66 75 6e |* DoAdd |*)...fun|
|00002730| 63 74 69 6f 6e 20 44 6f | 43 68 61 6e 67 65 20 28 |ction Do|Change (|
|00002740| 73 65 6c 65 63 74 69 6f | 6e 3a 20 69 6e 74 65 67 |selectio|n: integ|
|00002750| 65 72 3b 20 65 6e 74 72 | 69 65 73 3a 20 48 61 6e |er; entr|ies: Han|
|00002760| 64 6c 65 3b 20 6c 68 3a | 20 4c 69 73 74 48 61 6e |dle; lh:| ListHan|
|00002770| 64 6c 65 29 3a 20 4f 53 | 45 72 72 3b 0d 09 09 76 |dle): OS|Err;...v|
|00002780| 61 72 0d 09 09 09 65 72 | 72 3a 20 4f 53 45 72 72 |ar....er|r: OSErr|
|00002790| 3b 0d 09 09 09 74 6d 70 | 73 70 65 63 3a 20 49 6e |;....tmp|spec: In|
|000027a0| 74 65 72 6e 61 6c 41 70 | 70 53 70 65 63 3b 0d 09 |ternalAp|pSpec;..|
|000027b0| 62 65 67 69 6e 0d 09 09 | 47 65 74 4e 74 68 45 6c |begin...|GetNthEl|
|000027c0| 65 6d 65 6e 74 28 65 6e | 74 72 69 65 73 2c 20 73 |ement(en|tries, s|
|000027d0| 65 6c 65 63 74 69 6f 6e | 20 2b 20 31 2c 20 74 6d |election| + 1, tm|
|000027e0| 70 73 70 65 63 29 3b 0d | 09 09 44 65 6c 65 74 65 |pspec);.|..Delete|
|000027f0| 28 74 6d 70 73 70 65 63 | 2e 6b 65 79 2c 20 31 2c |(tmpspec|.key, 1,|
|00002800| 20 6c 65 6e 67 74 68 28 | 6b 49 43 48 65 6c 70 65 | length(|kICHelpe|
|00002810| 72 29 29 3b 0d 09 09 65 | 72 72 20 3a 3d 20 44 6f |r));...e|rr := Do|
|00002820| 45 64 69 74 28 65 6e 74 | 72 69 65 73 2c 20 6c 68 |Edit(ent|ries, lh|
|00002830| 2c 20 74 6d 70 73 70 65 | 63 29 3b 0d 09 09 69 66 |, tmpspe|c);...if|
|00002840| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 20 74 68 65 | err = n|oErr the|
|00002850| 6e 20 62 65 67 69 6e 0d | 09 09 09 53 65 74 4e 74 |n begin.|...SetNt|
|00002860| 68 45 6c 65 6d 65 6e 74 | 28 65 6e 74 72 69 65 73 |hElement|(entries|
|00002870| 2c 20 73 65 6c 65 63 74 | 69 6f 6e 20 2b 20 31 2c |, select|ion + 1,|
|00002880| 20 74 6d 70 73 70 65 63 | 29 3b 0d 09 09 09 65 72 | tmpspec|);....er|
|00002890| 72 20 3a 3d 20 6e 6f 45 | 72 72 3b 0d 09 09 65 6e |r := noE|rr;...en|
|000028a0| 64 0d 09 09 65 6c 73 65 | 20 62 65 67 69 6e 0d 09 |d...else| begin..|
|000028b0| 09 09 65 72 72 20 3a 3d | 20 75 73 65 72 43 61 6e |..err :=| userCan|
|000028c0| 63 65 6c 65 64 45 72 72 | 3b 0d 09 09 65 6e 64 3b |celedErr|;...end;|
|000028d0| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 44 6f 43 68 | (* if *|)...DoCh|
|000028e0| 61 6e 67 65 20 3a 3d 20 | 65 72 72 3b 0d 09 65 6e |ange := |err;..en|
|000028f0| 64 3b 20 28 2a 20 44 6f | 43 68 61 6e 67 65 20 2a |d; (* Do|Change *|
|00002900| 29 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 44 6f 44 |)...func|tion DoD|
|00002910| 65 6c 65 74 65 20 28 73 | 65 6c 65 63 74 69 6f 6e |elete (s|election|
|00002920| 3a 20 69 6e 74 65 67 65 | 72 3b 20 65 6e 74 72 69 |: intege|r; entri|
|00002930| 65 73 3a 20 48 61 6e 64 | 6c 65 3b 20 6c 68 3a 20 |es: Hand|le; lh: |
|00002940| 4c 69 73 74 48 61 6e 64 | 6c 65 29 3a 20 4f 53 45 |ListHand|le): OSE|
|00002950| 72 72 3b 0d 09 09 76 61 | 72 0d 09 09 09 65 72 72 |rr;...va|r....err|
|00002960| 3a 20 4f 53 45 72 72 3b | 0d 09 09 09 61 70 73 70 |: OSErr;|....apsp|
|00002970| 65 63 3a 20 49 6e 74 65 | 72 6e 61 6c 41 70 70 53 |ec: Inte|rnalAppS|
|00002980| 70 65 63 3b 0d 09 09 09 | 70 6f 73 3a 20 6c 6f 6e |pec;....|pos: lon|
|00002990| 67 69 6e 74 3b 0d 09 09 | 09 6a 75 6e 6b 3a 20 4f |gint;...|.junk: O|
|000029a0| 53 45 72 72 3b 0d 09 62 | 65 67 69 6e 0d 09 09 65 |SErr;..b|egin...e|
|000029b0| 72 72 20 3a 3d 20 49 43 | 4d 61 70 45 72 72 28 49 |rr := IC|MapErr(I|
|000029c0| 43 42 65 67 69 6e 28 47 | 65 74 49 6e 73 74 61 6e |CBegin(G|etInstan|
|000029d0| 63 65 2c 20 69 63 52 65 | 61 64 57 72 69 74 65 50 |ce, icRe|adWriteP|
|000029e0| 65 72 6d 29 29 3b 0d 09 | 09 69 66 20 65 72 72 20 |erm));..|.if err |
|000029f0| 3d 20 6e 6f 45 72 72 20 | 74 68 65 6e 20 62 65 67 |= noErr |then beg|
|00002a00| 69 6e 0d 09 09 09 47 65 | 74 4e 74 68 45 6c 65 6d |in....Ge|tNthElem|
|00002a10| 65 6e 74 28 65 6e 74 72 | 69 65 73 2c 20 73 65 6c |ent(entr|ies, sel|
|00002a20| 65 63 74 69 6f 6e 20 2b | 20 31 2c 20 61 70 73 70 |ection +| 1, apsp|
|00002a30| 65 63 29 3b 0d 09 09 09 | 65 72 72 20 3a 3d 20 49 |ec);....|err := I|
|00002a40| 43 44 65 6c 65 74 65 50 | 72 65 66 28 47 65 74 49 |CDeleteP|ref(GetI|
|00002a50| 6e 73 74 61 6e 63 65 2c | 20 61 70 73 70 65 63 2e |nstance,| apspec.|
|00002a60| 6b 65 79 29 3b 0d 09 09 | 09 6a 75 6e 6b 20 3a 3d |key);...|.junk :=|
|00002a70| 20 49 43 4d 61 70 45 72 | 72 28 49 43 45 6e 64 28 | ICMapEr|r(ICEnd(|
|00002a80| 47 65 74 49 6e 73 74 61 | 6e 63 65 29 29 3b 0d 09 |GetInsta|nce));..|
|00002a90| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00002aa0| 09 69 66 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 20 |.if err |= noErr |
|00002ab0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 70 6f |then beg|in....po|
|00002ac0| 73 20 3a 3d 20 4d 75 6e | 67 65 72 28 65 6e 74 72 |s := Mun|ger(entr|
|00002ad0| 69 65 73 2c 20 73 65 6c | 65 63 74 69 6f 6e 20 2a |ies, sel|ection *|
|00002ae0| 20 73 69 7a 65 6f 66 28 | 49 6e 74 65 72 6e 61 6c | sizeof(|Internal|
|00002af0| 41 70 70 53 70 65 63 29 | 2c 20 6e 69 6c 2c 20 73 |AppSpec)|, nil, s|
|00002b00| 69 7a 65 6f 66 28 49 6e | 74 65 72 6e 61 6c 41 70 |izeof(In|ternalAp|
|00002b10| 70 53 70 65 63 29 2c 20 | 50 74 72 28 2d 31 29 2c |pSpec), |Ptr(-1),|
|00002b20| 20 30 29 3b 0d 09 09 09 | 65 72 72 20 3a 3d 20 4d | 0);....|err := M|
|00002b30| 65 6d 45 72 72 6f 72 3b | 0d 09 09 09 69 66 20 65 |emError;|....if e|
|00002b40| 72 72 20 3d 20 6e 6f 45 | 72 72 20 74 68 65 6e 20 |rr = noE|rr then |
|00002b50| 62 65 67 69 6e 0d 09 09 | 09 09 4c 44 65 6c 52 6f |begin...|..LDelRo|
|00002b60| 77 28 31 2c 20 73 65 6c | 65 63 74 69 6f 6e 2c 20 |w(1, sel|ection, |
|00002b70| 6c 68 29 3b 0d 09 09 09 | 65 6e 64 3b 20 28 2a 20 |lh);....|end; (* |
|00002b80| 69 66 20 2a 29 0d 09 09 | 65 6e 64 3b 20 28 2a 20 |if *)...|end; (* |
|00002b90| 69 66 20 2a 29 0d 09 09 | 44 6f 44 65 6c 65 74 65 |if *)...|DoDelete|
|00002ba0| 20 3a 3d 20 65 72 72 3b | 0d 09 65 6e 64 3b 20 28 | := err;|..end; (|
|00002bb0| 2a 20 44 6f 44 65 6c 65 | 74 65 20 2a 29 0d 0d 09 |* DoDele|te *)...|
|00002bc0| 66 75 6e 63 74 69 6f 6e | 20 57 68 61 74 43 6c 69 |function| WhatCli|
|00002bd0| 63 6b 48 65 6c 70 65 72 | 20 28 77 74 3a 20 57 69 |ckHelper| (wt: Wi|
|00002be0| 6e 64 6f 77 54 79 70 65 | 3b 20 69 74 65 6d 3a 20 |ndowType|; item: |
|00002bf0| 69 6e 74 65 67 65 72 3b | 20 65 72 3a 20 65 76 65 |integer;| er: eve|
|00002c00| 6e 74 52 65 63 6f 72 64 | 29 3a 20 4f 53 45 72 72 |ntRecord|): OSErr|
|00002c10| 3b 0d 09 09 76 61 72 0d | 09 09 09 6c 68 3a 20 4c |;...var.|...lh: L|
|00002c20| 69 73 74 48 61 6e 64 6c | 65 3b 0d 09 09 09 65 6e |istHandl|e;....en|
|00002c30| 74 72 69 65 73 3a 20 48 | 61 6e 64 6c 65 3b 0d 09 |tries: H|andle;..|
|00002c40| 09 09 73 65 6c 65 63 74 | 69 6f 6e 3a 20 69 6e 74 |..select|ion: int|
|00002c50| 65 67 65 72 3b 0d 09 09 | 09 65 72 72 3a 20 4f 53 |eger;...|.err: OS|
|00002c60| 45 72 72 3b 0d 09 09 09 | 70 6f 73 3a 20 6c 6f 6e |Err;....|pos: lon|
|00002c70| 67 69 6e 74 3b 0d 09 09 | 09 72 3a 20 52 65 63 74 |gint;...|.r: Rect|
|00002c80| 3b 0d 09 62 65 67 69 6e | 0d 09 09 65 6e 74 72 69 |;..begin|...entri|
|00002c90| 65 73 20 3a 3d 20 48 61 | 6e 64 6c 65 28 77 69 6e |es := Ha|ndle(win|
|00002ca0| 64 6f 77 69 6e 66 6f 5b | 77 74 5d 2e 69 74 65 6d |dowinfo[|wt].item|
|00002cb0| 73 5b 64 69 74 4c 69 73 | 74 5d 5e 2e 64 61 74 61 |s[ditLis|t]^.data|
|00002cc0| 29 3b 0d 09 09 6c 68 20 | 3a 3d 20 4c 69 73 74 48 |);...lh |:= ListH|
|00002cd0| 61 6e 64 6c 65 28 77 69 | 6e 64 6f 77 69 6e 66 6f |andle(wi|ndowinfo|
|00002ce0| 5b 77 74 5d 2e 69 74 65 | 6d 73 5b 64 69 74 4c 69 |[wt].ite|ms[ditLi|
|00002cf0| 73 74 5d 5e 2e 73 70 61 | 72 65 5f 64 61 74 61 29 |st]^.spa|re_data)|
|00002d00| 3b 0d 09 09 47 6c 6f 62 | 61 6c 54 6f 4c 6f 63 61 |;...Glob|alToLoca|
|00002d10| 6c 28 65 72 2e 77 68 65 | 72 65 29 3b 0d 09 09 73 |l(er.whe|re);...s|
|00002d20| 65 6c 65 63 74 69 6f 6e | 20 3a 3d 20 53 65 6c 65 |election| := Sele|
|00002d30| 63 74 65 64 4c 69 6e 65 | 28 6c 68 29 3b 0d 09 09 |ctedLine|(lh);...|
|00002d40| 65 72 72 20 3a 3d 20 31 | 3b 0d 09 09 63 61 73 65 |err := 1|;...case|
|00002d50| 20 69 74 65 6d 20 6f 66 | 0d 09 09 09 64 69 74 41 | item of|....ditA|
|00002d60| 64 64 3a 20 0d 09 09 09 | 09 65 72 72 20 3a 3d 20 |dd: ....|.err := |
|00002d70| 44 6f 41 64 64 28 65 6e | 74 72 69 65 73 2c 20 6c |DoAdd(en|tries, l|
|00002d80| 68 29 3b 0d 09 09 09 64 | 69 74 43 68 61 6e 67 65 |h);....d|itChange|
|00002d90| 3a 20 0d 09 09 09 09 65 | 72 72 20 3a 3d 20 44 6f |: .....e|rr := Do|
|00002da0| 43 68 61 6e 67 65 28 73 | 65 6c 65 63 74 69 6f 6e |Change(s|election|
|00002db0| 2c 20 65 6e 74 72 69 65 | 73 2c 20 6c 68 29 3b 0d |, entrie|s, lh);.|
|00002dc0| 09 09 09 64 69 74 44 65 | 6c 65 74 65 3a 20 0d 09 |...ditDe|lete: ..|
|00002dd0| 09 09 09 69 66 20 73 65 | 6c 65 63 74 69 6f 6e 20 |...if se|lection |
|00002de0| 3c 3e 20 2d 31 20 74 68 | 65 6e 20 62 65 67 69 6e |<> -1 th|en begin|
|00002df0| 0d 09 09 09 09 09 65 72 | 72 20 3a 3d 20 44 6f 44 |......er|r := DoD|
|00002e00| 65 6c 65 74 65 28 73 65 | 6c 65 63 74 69 6f 6e 2c |elete(se|lection,|
|00002e10| 20 65 6e 74 72 69 65 73 | 2c 20 6c 68 29 3b 0d 09 | entries|, lh);..|
|00002e20| 09 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00002e30| 0d 09 09 09 64 69 74 4c | 69 73 74 3a 20 20 62 65 |....ditL|ist:  be|
|00002e40| 67 69 6e 0d 09 09 09 09 | 69 66 20 4c 43 6c 69 63 |gin.....|if LClic|
|00002e50| 6b 28 65 72 2e 77 68 65 | 72 65 2c 20 30 2c 20 6c |k(er.whe|re, 0, l|
|00002e60| 68 29 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |h) then |begin...|
|00002e70| 09 09 09 73 65 6c 65 63 | 74 69 6f 6e 20 3a 3d 20 |...selec|tion := |
|00002e80| 53 65 6c 65 63 74 65 64 | 4c 69 6e 65 28 6c 68 29 |Selected|Line(lh)|
|00002e90| 3b 09 09 09 28 2a 20 73 | 65 6c 65 63 74 69 6f 6e |;...(* s|election|
|00002ea0| 20 6d 61 79 20 68 61 76 | 65 20 62 65 65 6e 20 63 | may hav|e been c|
|00002eb0| 68 61 6e 67 65 64 20 62 | 79 20 4c 43 6c 69 63 6b |hanged b|y LClick|
|00002ec0| 20 2a 29 0d 09 09 09 09 | 09 69 66 20 45 6e 74 72 | *).....|.if Entr|
|00002ed0| 79 4c 6f 63 6b 65 64 28 | 65 6e 74 72 69 65 73 2c |yLocked(|entries,|
|00002ee0| 20 73 65 6c 65 63 74 69 | 6f 6e 20 2b 20 31 29 20 | selecti|on + 1) |
|00002ef0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 09 09 |then beg|in......|
|00002f00| 09 4c 6f 63 6b 65 64 41 | 6c 65 72 74 28 77 74 2c |.LockedA|lert(wt,|
|00002f10| 20 69 74 65 6d 29 3b 0d | 09 09 09 09 09 09 65 72 | item);.|......er|
|00002f20| 72 20 3a 3d 20 75 73 65 | 72 43 61 6e 63 65 6c 65 |r := use|rCancele|
|00002f30| 64 45 72 72 3b 0d 09 09 | 09 09 09 65 6e 64 0d 09 |dErr;...|...end..|
|00002f40| 09 09 09 09 65 6c 73 65 | 20 62 65 67 69 6e 0d 09 |....else| begin..|
|00002f50| 09 09 09 09 09 46 6c 61 | 73 68 49 74 65 6d 28 77 |.....Fla|shItem(w|
|00002f60| 69 6e 64 6f 77 69 6e 66 | 6f 5b 77 74 5d 2e 77 69 |indowinf|o[wt].wi|
|00002f70| 6e 64 6f 77 2c 20 64 69 | 74 43 68 61 6e 67 65 29 |ndow, di|tChange)|
|00002f80| 3b 0d 09 09 09 09 09 09 | 65 72 72 20 3a 3d 20 44 |;.......|err := D|
|00002f90| 6f 43 68 61 6e 67 65 28 | 73 65 6c 65 63 74 69 6f |oChange(|selectio|
|00002fa0| 6e 2c 20 65 6e 74 72 69 | 65 73 2c 20 6c 68 29 3b |n, entri|es, lh);|
|00002fb0| 0d 09 09 09 09 09 65 6e | 64 3b 20 28 2a 20 69 66 |......en|d; (* if|
|00002fc0| 20 2a 29 0d 09 09 09 09 | 65 6e 64 3b 20 28 2a 20 | *).....|end; (* |
|00002fd0| 69 66 20 2a 29 0d 09 09 | 09 65 6e 64 3b 0d 09 09 |if *)...|.end;...|
|00002fe0| 65 6e 64 3b 20 28 2a 20 | 63 61 73 65 20 2a 29 0d |end; (* |case *).|
|00002ff0| 09 09 69 66 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |..if err| = noErr|
|00003000| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 44 | then be|gin....D|
|00003010| 69 72 74 79 44 6f 63 75 | 6d 65 6e 74 3b 0d 09 09 |irtyDocu|ment;...|
|00003020| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|00003030| 69 66 20 65 72 72 20 3d | 20 31 20 74 68 65 6e 20 |if err =| 1 then |
|00003040| 62 65 67 69 6e 0d 09 09 | 09 65 72 72 20 3a 3d 20 |begin...|.err := |
|00003050| 6e 6f 45 72 72 3b 0d 09 | 09 65 6e 64 3b 20 28 2a |noErr;..|.end; (*|
|00003060| 20 69 66 20 2a 29 0d 09 | 09 44 69 6d 42 75 74 74 | if *)..|.DimButt|
|00003070| 6f 6e 73 28 77 74 29 3b | 0d 09 09 57 68 61 74 43 |ons(wt);|...WhatC|
|00003080| 6c 69 63 6b 48 65 6c 70 | 65 72 20 3a 3d 20 65 72 |lickHelp|er := er|
|00003090| 72 3b 0d 09 65 6e 64 3b | 20 28 2a 20 57 68 61 74 |r;..end;| (* What|
|000030a0| 43 6c 69 63 6b 48 65 6c | 70 65 72 20 2a 29 0d 0d |ClickHel|per *)..|
|000030b0| 09 66 75 6e 63 74 69 6f | 6e 20 57 68 61 74 46 6c |.functio|n WhatFl|
|000030c0| 75 73 68 48 65 6c 70 65 | 72 20 28 77 74 3a 20 57 |ushHelpe|r (wt: W|
|000030d0| 69 6e 64 6f 77 54 79 70 | 65 3b 20 69 74 65 6d 3a |indowTyp|e; item:|
|000030e0| 20 69 6e 74 65 67 65 72 | 29 3a 20 4f 53 45 72 72 | integer|): OSErr|
|000030f0| 3b 0d 09 09 76 61 72 0d | 09 09 09 65 72 72 3a 20 |;...var.|...err: |
|00003100| 4f 53 65 72 72 3b 0d 09 | 09 09 65 6e 74 72 69 65 |OSerr;..|..entrie|
|00003110| 73 3a 20 48 61 6e 64 6c | 65 3b 0d 09 09 09 69 3a |s: Handl|e;....i:|
|00003120| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 61 70 70 | integer|;....app|
|00003130| 73 70 65 63 3a 20 49 6e | 74 65 72 6e 61 6c 41 70 |spec: In|ternalAp|
|00003140| 70 53 70 65 63 3b 0d 09 | 09 09 6a 75 6e 6b 3a 20 |pSpec;..|..junk: |
|00003150| 4f 53 45 72 72 3b 0d 09 | 09 09 66 69 72 73 74 5f |OSErr;..|..first_|
|00003160| 65 72 72 3a 20 4f 53 45 | 72 72 3b 0d 09 62 65 67 |err: OSE|rr;..beg|
|00003170| 69 6e 0d 09 09 65 72 72 | 20 3a 3d 20 6e 6f 45 72 |in...err| := noEr|
|00003180| 72 3b 0d 09 09 65 6e 74 | 72 69 65 73 20 3a 3d 20 |r;...ent|ries := |
|00003190| 48 61 6e 64 6c 65 28 77 | 69 6e 64 6f 77 69 6e 66 |Handle(w|indowinf|
|000031a0| 6f 5b 77 74 5d 2e 69 74 | 65 6d 73 5b 64 69 74 4c |o[wt].it|ems[ditL|
|000031b0| 69 73 74 5d 5e 2e 64 61 | 74 61 29 3b 0d 09 09 66 |ist]^.da|ta);...f|
|000031c0| 69 72 73 74 5f 65 72 72 | 20 3a 3d 20 6e 6f 45 72 |irst_err| := noEr|
|000031d0| 72 3b 0d 09 09 66 6f 72 | 20 69 20 3a 3d 20 31 20 |r;...for| i := 1 |
|000031e0| 74 6f 20 47 65 74 48 61 | 6e 64 6c 65 53 69 7a 65 |to GetHa|ndleSize|
|000031f0| 28 65 6e 74 72 69 65 73 | 29 20 64 69 76 20 73 69 |(entries|) div si|
|00003200| 7a 65 6f 66 28 49 6e 74 | 65 72 6e 61 6c 41 70 70 |zeof(Int|ernalApp|
|00003210| 53 70 65 63 29 20 64 6f | 20 62 65 67 69 6e 0d 09 |Spec) do| begin..|
|00003220| 09 09 47 65 74 4e 74 68 | 45 6c 65 6d 65 6e 74 28 |..GetNth|Element(|
|00003230| 65 6e 74 72 69 65 73 2c | 20 69 2c 20 61 70 70 73 |entries,| i, apps|
|00003240| 70 65 63 29 3b 0d 09 09 | 09 65 72 72 20 3a 3d 20 |pec);...|.err := |
|00003250| 49 43 4d 61 70 45 72 72 | 28 49 43 53 65 74 50 72 |ICMapErr|(ICSetPr|
|00003260| 65 66 28 47 65 74 49 6e | 73 74 61 6e 63 65 2c 20 |ef(GetIn|stance, |
|00003270| 61 70 70 73 70 65 63 2e | 6b 65 79 2c 20 49 43 61 |appspec.|key, ICa|
|00003280| 74 74 72 5f 6e 6f 5f 63 | 68 61 6e 67 65 2c 20 40 |ttr_no_c|hange, @|
|00003290| 61 70 70 73 70 65 63 2e | 61 70 70 73 70 65 63 2c |appspec.|appspec,|
|000032a0| 20 73 69 7a 65 6f 66 28 | 61 70 70 73 70 65 63 2e | sizeof(|appspec.|
|000032b0| 61 70 70 73 70 65 63 29 | 29 29 3b 0d 09 09 09 69 |appspec)|));....i|
|000032c0| 66 20 66 69 72 73 74 5f | 65 72 72 20 3d 20 6e 6f |f first_|err = no|
|000032d0| 45 72 72 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |Err then| begin..|
|000032e0| 09 09 09 66 69 72 73 74 | 5f 65 72 72 20 3a 3d 20 |...first|_err := |
|000032f0| 65 72 72 3b 0d 09 09 09 | 65 6e 64 3b 20 28 2a 20 |err;....|end; (* |
|00003300| 69 66 20 2a 29 0d 09 09 | 65 6e 64 3b 20 28 2a 20 |if *)...|end; (* |
|00003310| 66 6f 72 20 2a 29 0d 09 | 09 65 72 72 20 3a 3d 20 |for *)..|.err := |
|00003320| 66 69 72 73 74 5f 65 72 | 72 3b 0d 09 09 57 68 61 |first_er|r;...Wha|
|00003330| 74 46 6c 75 73 68 48 65 | 6c 70 65 72 20 3a 3d 20 |tFlushHe|lper := |
|00003340| 65 72 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 57 68 |err;..en|d; (* Wh|
|00003350| 61 74 46 6c 75 73 68 48 | 65 6c 70 65 72 20 2a 29 |atFlushH|elper *)|
|00003360| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 57 68 61 74 |...funct|ion What|
|00003370| 43 6c 6f 73 65 48 65 6c | 70 65 72 20 28 77 74 3a |CloseHel|per (wt:|
|00003380| 20 57 69 6e 64 6f 77 54 | 79 70 65 3b 20 69 74 65 | WindowT|ype; ite|
|00003390| 6d 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 4f 53 45 |m: integ|er): OSE|
|000033a0| 72 72 3b 0d 09 62 65 67 | 69 6e 0d 09 09 4c 44 69 |rr;..beg|in...LDi|
|000033b0| 73 70 6f 73 65 28 4c 69 | 73 74 48 61 6e 64 6c 65 |spose(Li|stHandle|
|000033c0| 28 77 69 6e 64 6f 77 69 | 6e 66 6f 5b 77 74 5d 2e |(windowi|nfo[wt].|
|000033d0| 69 74 65 6d 73 5b 69 74 | 65 6d 5d 5e 2e 73 70 61 |items[it|em]^.spa|
|000033e0| 72 65 5f 64 61 74 61 29 | 29 3b 0d 09 09 44 69 73 |re_data)|);...Dis|
|000033f0| 70 6f 73 65 48 61 6e 64 | 6c 65 28 48 61 6e 64 6c |poseHand|le(Handl|
|00003400| 65 28 77 69 6e 64 6f 77 | 69 6e 66 6f 5b 77 74 5d |e(window|info[wt]|
|00003410| 2e 69 74 65 6d 73 5b 64 | 69 74 4c 69 73 74 5d 5e |.items[d|itList]^|
|00003420| 2e 64 61 74 61 29 29 3b | 0d 09 09 57 68 61 74 43 |.data));|...WhatC|
|00003430| 6c 6f 73 65 48 65 6c 70 | 65 72 20 3a 3d 20 6e 6f |loseHelp|er := no|
|00003440| 45 72 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 57 68 |Err;..en|d; (* Wh|
|00003450| 61 74 43 6c 6f 73 65 48 | 65 6c 70 65 72 20 2a 29 |atCloseH|elper *)|
|00003460| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 57 68 61 74 |...funct|ion What|
|00003470| 41 63 74 69 76 61 74 65 | 48 65 6c 70 65 72 20 28 |Activate|Helper (|
|00003480| 77 74 3a 20 57 69 6e 64 | 6f 77 54 79 70 65 3b 20 |wt: Wind|owType; |
|00003490| 69 74 65 6d 3a 20 69 6e | 74 65 67 65 72 3b 20 61 |item: in|teger; a|
|000034a0| 63 74 69 76 61 74 65 3a | 20 62 6f 6f 6c 65 61 6e |ctivate:| boolean|
|000034b0| 29 3a 20 4f 53 45 72 72 | 3b 0d 09 62 65 67 69 6e |): OSErr|;..begin|
|000034c0| 0d 09 09 4c 41 63 74 69 | 76 61 74 65 28 61 63 74 |...LActi|vate(act|
|000034d0| 69 76 61 74 65 2c 20 4c | 69 73 74 48 61 6e 64 6c |ivate, L|istHandl|
|000034e0| 65 28 77 69 6e 64 6f 77 | 69 6e 66 6f 5b 77 74 5d |e(window|info[wt]|
|000034f0| 2e 69 74 65 6d 73 5b 69 | 74 65 6d 5d 5e 2e 73 70 |.items[i|tem]^.sp|
|00003500| 61 72 65 5f 64 61 74 61 | 29 29 3b 0d 09 09 57 68 |are_data|));...Wh|
|00003510| 61 74 41 63 74 69 76 61 | 74 65 48 65 6c 70 65 72 |atActiva|teHelper|
|00003520| 20 3a 3d 20 6e 6f 45 72 | 72 3b 0d 09 65 6e 64 3b | := noEr|r;..end;|
|00003530| 20 28 2a 20 57 68 61 74 | 41 63 74 69 76 61 74 65 | (* What|Activate|
|00003540| 48 65 6c 70 65 72 20 2a | 29 0d 0d 09 66 75 6e 63 |Helper *|)...func|
|00003550| 74 69 6f 6e 20 47 65 74 | 45 6e 74 72 79 4e 61 6d |tion Get|EntryNam|
|00003560| 65 20 28 6c 69 73 74 3a | 20 4c 69 73 74 48 61 6e |e (list:| ListHan|
|00003570| 64 6c 65 3b 20 63 3a 20 | 63 65 6c 6c 29 3a 20 73 |dle; c: |cell): s|
|00003580| 74 72 32 35 35 3b 0d 09 | 09 76 61 72 0d 09 09 09 |tr255;..|.var....|
|00003590| 61 70 70 73 70 65 63 3a | 20 49 6e 74 65 72 6e 61 |appspec:| Interna|
|000035a0| 6c 41 70 70 53 70 65 63 | 3b 0d 09 09 09 65 6e 74 |lAppSpec|;....ent|
|000035b0| 72 69 65 73 3a 20 68 61 | 6e 64 6c 65 3b 0d 09 62 |ries: ha|ndle;..b|
|000035c0| 65 67 69 6e 0d 09 09 47 | 65 74 45 6e 74 72 79 4e |egin...G|etEntryN|
|000035d0| 61 6d 65 20 3a 3d 20 27 | 27 3b 0d 09 09 65 6e 74 |ame := '|';...ent|
|000035e0| 72 69 65 73 20 3a 3d 20 | 48 61 6e 64 6c 65 28 77 |ries := |Handle(w|
|000035f0| 69 6e 64 6f 77 69 6e 66 | 6f 5b 47 65 74 57 69 6e |indowinf|o[GetWin|
|00003600| 64 6f 77 54 79 70 65 28 | 6c 69 73 74 5e 5e 2e 70 |dowType(|list^^.p|
|00003610| 6f 72 74 29 5d 2e 69 74 | 65 6d 73 5b 64 69 74 4c |ort)].it|ems[ditL|
|00003620| 69 73 74 5d 5e 2e 64 61 | 74 61 29 3b 0d 09 09 47 |ist]^.da|ta);...G|
|00003630| 65 74 4e 74 68 45 6c 65 | 6d 65 6e 74 28 65 6e 74 |etNthEle|ment(ent|
|00003640| 72 69 65 73 2c 20 63 2e | 76 20 2b 20 31 2c 20 61 |ries, c.|v + 1, a|
|00003650| 70 70 73 70 65 63 29 3b | 0d 09 09 47 65 74 45 6e |ppspec);|...GetEn|
|00003660| 74 72 79 4e 61 6d 65 20 | 3a 3d 20 63 6f 6e 63 61 |tryName |:= conca|
|00003670| 74 28 63 6f 70 79 28 61 | 70 70 73 70 65 63 2e 6b |t(copy(a|ppspec.k|
|00003680| 65 79 2c 20 6c 65 6e 67 | 74 68 28 6b 49 43 48 65 |ey, leng|th(kICHe|
|00003690| 6c 70 65 72 29 20 2b 20 | 31 2c 20 32 35 35 29 2c |lper) + |1, 255),|
|000036a0| 20 47 65 74 41 53 74 72 | 69 6e 67 28 31 32 38 2c | GetAStr|ing(128,|
|000036b0| 20 35 29 2c 20 61 70 70 | 73 70 65 63 2e 61 70 70 | 5), app|spec.app|
|000036c0| 73 70 65 63 2e 6e 61 6d | 65 29 3b 0d 09 65 6e 64 |spec.nam|e);..end|
|000036d0| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 57 68 61 |;...func|tion Wha|
|000036e0| 74 4b 65 79 48 65 6c 70 | 65 72 20 28 77 74 3a 20 |tKeyHelp|er (wt: |
|000036f0| 57 69 6e 64 6f 77 54 79 | 70 65 3b 20 69 74 65 6d |WindowTy|pe; item|
|00003700| 3a 20 69 6e 74 65 67 65 | 72 3b 20 65 72 3a 20 45 |: intege|r; er: E|
|00003710| 76 65 6e 74 52 65 63 6f | 72 64 29 3a 20 4f 53 45 |ventReco|rd): OSE|
|00003720| 72 72 3b 0d 09 09 76 61 | 72 0d 09 09 09 63 68 3a |rr;...va|r....ch:|
|00003730| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 6c 68 3a | integer|;....lh:|
|00003740| 20 4c 69 73 74 48 61 6e | 64 6c 65 3b 0d 09 09 09 | ListHan|dle;....|
|00003750| 65 72 72 3a 20 4f 53 45 | 72 72 3b 0d 09 09 09 65 |err: OSE|rr;....e|
|00003760| 6e 74 72 69 65 73 3a 20 | 48 61 6e 64 6c 65 3b 0d |ntries: |Handle;.|
|00003770| 09 09 09 73 65 6c 65 63 | 74 69 6f 6e 3a 20 69 6e |...selec|tion: in|
|00003780| 74 65 67 65 72 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |teger;..|begin...|
|00003790| 65 72 72 20 3a 3d 20 6e | 6f 45 72 72 3b 0d 09 09 |err := n|oErr;...|
|000037a0| 69 66 20 28 65 72 2e 77 | 68 61 74 20 3d 20 6b 65 |if (er.w|hat = ke|
|000037b0| 79 44 6f 77 6e 29 20 6f | 72 20 28 65 72 2e 77 68 |yDown) o|r (er.wh|
|000037c0| 61 74 20 3d 20 61 75 74 | 6f 4b 65 79 29 20 74 68 |at = aut|oKey) th|
|000037d0| 65 6e 20 62 65 67 69 6e | 0d 09 09 09 63 68 20 3a |en begin|....ch :|
|000037e0| 3d 20 42 41 4e 44 28 65 | 72 2e 6d 65 73 73 61 67 |= BAND(e|r.messag|
|000037f0| 65 2c 20 24 46 46 29 3b | 0d 09 09 09 63 61 73 65 |e, $FF);|....case|
|00003800| 20 63 68 20 6f 66 0d 09 | 09 09 09 63 72 43 68 61 | ch of..|...crCha|
|00003810| 72 2c 20 65 6e 74 65 72 | 43 68 61 72 3a 20 20 62 |r, enter|Char:  b|
|00003820| 65 67 69 6e 0d 09 09 09 | 09 09 69 66 20 47 65 74 |egin....|..if Get|
|00003830| 44 43 74 6c 45 6e 61 62 | 6c 65 28 77 69 6e 64 6f |DCtlEnab|le(windo|
|00003840| 77 69 6e 66 6f 5b 77 74 | 5d 2e 77 69 6e 64 6f 77 |winfo[wt|].window|
|00003850| 2c 20 64 69 74 43 68 61 | 6e 67 65 29 20 74 68 65 |, ditCha|nge) the|
|00003860| 6e 20 62 65 67 69 6e 0d | 09 09 09 09 09 09 65 6e |n begin.|......en|
|00003870| 74 72 69 65 73 20 3a 3d | 20 48 61 6e 64 6c 65 28 |tries :=| Handle(|
|00003880| 77 69 6e 64 6f 77 69 6e | 66 6f 5b 77 74 5d 2e 69 |windowin|fo[wt].i|
|00003890| 74 65 6d 73 5b 64 69 74 | 4c 69 73 74 5d 5e 2e 64 |tems[dit|List]^.d|
|000038a0| 61 74 61 29 3b 0d 09 09 | 09 09 09 09 6c 68 20 3a |ata);...|....lh :|
|000038b0| 3d 20 4c 69 73 74 48 61 | 6e 64 6c 65 28 77 69 6e |= ListHa|ndle(win|
|000038c0| 64 6f 77 69 6e 66 6f 5b | 77 74 5d 2e 69 74 65 6d |dowinfo[|wt].item|
|000038d0| 73 5b 69 74 65 6d 5d 5e | 2e 73 70 61 72 65 5f 64 |s[item]^|.spare_d|
|000038e0| 61 74 61 29 3b 0d 09 09 | 09 09 09 09 73 65 6c 65 |ata);...|....sele|
|000038f0| 63 74 69 6f 6e 20 3a 3d | 20 53 65 6c 65 63 74 65 |ction :=| Selecte|
|00003900| 64 4c 69 6e 65 28 6c 68 | 29 3b 0d 09 09 09 09 09 |dLine(lh|);......|
|00003910| 09 46 6c 61 73 68 49 74 | 65 6d 28 77 69 6e 64 6f |.FlashIt|em(windo|
|00003920| 77 69 6e 66 6f 5b 77 74 | 5d 2e 77 69 6e 64 6f 77 |winfo[wt|].window|
|00003930| 2c 20 64 69 74 43 68 61 | 6e 67 65 29 3b 0d 09 09 |, ditCha|nge);...|
|00003940| 09 09 09 09 65 72 72 20 | 3a 3d 20 44 6f 43 68 61 |....err |:= DoCha|
|00003950| 6e 67 65 28 73 65 6c 65 | 63 74 69 6f 6e 2c 20 65 |nge(sele|ction, e|
|00003960| 6e 74 72 69 65 73 2c 20 | 6c 68 29 3b 0d 09 09 09 |ntries, |lh);....|
|00003970| 09 09 09 69 66 20 65 72 | 72 20 3d 20 6e 6f 45 72 |...if er|r = noEr|
|00003980| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|00003990| 09 09 09 09 44 69 72 74 | 79 44 6f 63 75 6d 65 6e |....Dirt|yDocumen|
|000039a0| 74 3b 0d 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |t;......|.end;...|
|000039b0| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 65 6e 64 3b |...end;.|....end;|
|000039c0| 0d 09 09 09 09 6f 74 68 | 65 72 77 69 73 65 20 62 |.....oth|erwise b|
|000039d0| 65 67 69 6e 0d 09 09 09 | 09 09 44 6f 4c 69 73 74 |egin....|..DoList|
|000039e0| 4b 65 79 28 4c 69 73 74 | 48 61 6e 64 6c 65 28 77 |Key(List|Handle(w|
|000039f0| 69 6e 64 6f 77 69 6e 66 | 6f 5b 77 74 5d 2e 69 74 |indowinf|o[wt].it|
|00003a00| 65 6d 73 5b 69 74 65 6d | 5d 5e 2e 73 70 61 72 65 |ems[item|]^.spare|
|00003a10| 5f 64 61 74 61 29 2c 20 | 65 72 2e 6d 6f 64 69 66 |_data), |er.modif|
|00003a20| 69 65 72 73 2c 20 63 68 | 72 28 42 41 4e 44 28 65 |iers, ch|r(BAND(e|
|00003a30| 72 2e 6d 65 73 73 61 67 | 65 2c 20 24 46 46 29 29 |r.messag|e, $FF))|
|00003a40| 2c 20 40 47 65 74 45 6e | 74 72 79 4e 61 6d 65 29 |, @GetEn|tryName)|
|00003a50| 3b 0d 09 09 09 09 09 44 | 69 6d 42 75 74 74 6f 6e |;......D|imButton|
|00003a60| 73 28 77 74 29 3b 0d 09 | 09 09 09 65 6e 64 3b 0d |s(wt);..|...end;.|
|00003a70| 09 09 09 65 6e 64 3b 0d | 09 09 65 6e 64 3b 0d 09 |...end;.|..end;..|
|00003a80| 09 57 68 61 74 4b 65 79 | 48 65 6c 70 65 72 20 3a |.WhatKey|Helper :|
|00003a90| 3d 20 65 72 72 3b 0d 09 | 65 6e 64 3b 20 28 2a 20 |= err;..|end; (* |
|00003aa0| 57 68 61 74 4b 65 79 48 | 65 6c 70 65 72 20 2a 29 |WhatKeyH|elper *)|
|00003ab0| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 57 68 61 74 |...funct|ion What|
|00003ac0| 43 75 72 73 6f 72 48 65 | 6c 70 65 72 20 28 77 74 |CursorHe|lper (wt|
|00003ad0| 3a 20 57 69 6e 64 6f 77 | 54 79 70 65 3b 20 69 74 |: Window|Type; it|
|00003ae0| 65 6d 3a 20 69 6e 74 65 | 67 65 72 3b 20 70 74 3a |em: inte|ger; pt:|
|00003af0| 20 50 6f 69 6e 74 3b 20 | 63 75 72 73 6f 72 69 64 | Point; |cursorid|
|00003b00| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 4f 53 45 72 |: intege|r): OSEr|
|00003b10| 72 3b 0d 09 09 76 61 72 | 0d 09 09 09 72 3a 20 52 |r;...var|....r: R|
|00003b20| 65 63 74 3b 0d 09 62 65 | 67 69 6e 0d 09 09 47 65 |ect;..be|gin...Ge|
|00003b30| 74 44 49 74 65 6d 52 65 | 63 74 28 77 69 6e 64 6f |tDItemRe|ct(windo|
|00003b40| 77 69 6e 66 6f 5b 77 74 | 5d 2e 77 69 6e 64 6f 77 |winfo[wt|].window|
|00003b50| 2c 20 69 74 65 6d 2c 20 | 72 29 3b 0d 09 09 49 6e |, item, |r);...In|
|00003b60| 73 65 74 52 65 63 74 28 | 72 2c 20 31 35 2c 20 30 |setRect(|r, 15, 0|
|00003b70| 29 3b 0d 09 09 69 66 20 | 50 74 49 6e 52 65 63 74 |);...if |PtInRect|
|00003b80| 28 70 74 2c 20 72 29 20 | 74 68 65 6e 20 62 65 67 |(pt, r) |then beg|
|00003b90| 69 6e 0d 09 09 09 53 65 | 74 43 75 72 73 6f 72 28 |in....Se|tCursor(|
|00003ba0| 47 65 74 43 75 72 73 6f | 72 28 63 75 72 73 6f 72 |GetCurso|r(cursor|
|00003bb0| 69 64 29 5e 5e 29 3b 0d | 09 09 65 6e 64 0d 09 09 |id)^^);.|..end...|
|00003bc0| 65 6c 73 65 20 62 65 67 | 69 6e 0d 09 09 09 49 6e |else beg|in....In|
|00003bd0| 69 74 43 75 72 73 6f 72 | 3b 0d 09 09 65 6e 64 3b |itCursor|;...end;|
|00003be0| 20 28 2a 20 69 66 20 2a | 29 0d 09 65 6e 64 3b 20 | (* if *|)..end; |
|00003bf0| 28 2a 20 57 68 61 74 43 | 75 72 73 6f 72 48 65 6c |(* WhatC|ursorHel|
|00003c00| 70 65 72 20 2a 29 0d 0d | 65 6e 64 2e 20 28 2a 20 |per *)..|end. (* |
|00003c10| 49 43 48 65 6c 70 65 72 | 57 68 61 74 20 2a 29 00 |ICHelper|What *).|
|00003c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00003c90| ff ff ff ff ff 00 00 00 | 40 7f fc 90 0a 90 69 90 |........|@.....i.|
|00003ca0| 09 8f f1 80 01 9f f9 a0 | 05 a0 05 a0 05 a0 05 a0 |........|........|
|00003cb0| 0e 49 43 48 65 6c 70 65 | 72 57 68 61 74 2e 70 49 |.ICHelpe|rWhat.pI|
|00003cc0| 02 00 00 00 54 45 58 54 | 50 4a 4d 4d 01 00 00 9c |....TEXT|PJMM....|
|00003cd0| 00 00 54 45 58 54 50 4a | 4d 4d 01 00 00 9c 00 00 |..TEXTPJ|MM......|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 aa ff 95 03 00 00 | 3b 9f 00 00 01 ac 00 01 |........|;.......|
|00003d00| 00 03 80 07 c0 0f e0 1f | f0 3f f8 7f fc ff fe 7f |........|.?......|
|00003d10| fe 3f fe 1f fe 0f fe 07 | c6 03 80 01 00 00 00 00 |.?......|........|
|00003d20| 40 00 00 00 00 00 00 00 | 00 00 00 7f fe 80 01 80 |@.......|........|
|00003d30| 01 a0 01 80 01 7f fe 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d40| 00 00 00 00 00 00 00 00 | 00 00 00 7f fe ff ff ff |........|........|
|00003d50| ff ff ff ff ff 7f fe 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d60| 00 00 00 00 40 00 00 00 | 00 3c 00 42 f0 ff 9e 80 |....@...|.<.B....|
|00003d70| 91 80 91 81 f9 81 09 81 | 69 81 69 81 f9 80 91 80 |........|i.i.....|
|00003d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 01 00 00 |...H..Mo|naco....|
|00003d90| 00 00 00 00 01 2b 9e de | 00 04 00 04 8e fc 01 2a |.....+..|.......*|
|00003da0| c4 bc 01 24 6c a0 00 06 | 00 04 00 2a 00 24 01 d1 |...$l...|...*.$..|
|00003db0| 02 20 00 2a 00 24 01 6b | 01 5b aa ff 95 06 00 00 |. .*.$.k|.[......|
|00003dc0| 28 8f 00 00 28 a0 00 00 | 27 f7 01 00 00 00 00 1e |(...(...|'.......|
|00003dd0| 00 2a 00 24 01 d1 02 20 | 00 2a 00 24 01 6b 01 5b |.*.$... |.*.$.k.[|
|00003de0| 00 00 27 f7 00 00 00 00 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00003df0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 5d |.....n..|.n...>.]|
|00003e00| 6a 58 09 ec 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |jX......|.>..MPSR|
|00003e10| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00003e20| 03 f0 ff ff 00 00 00 4c | 00 5f c6 20 00 00 00 00 |.......L|._. ....|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+